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1 GENERAL INFORMATION 
1.1 Product Description 


The TKSO Functional Diagnostic is_ intended to provide 
confidence in the basic functionality of the TK5SO subsystem. As such, 
this should be the first host level diagnostic run on the TKSO 
subsystem to verify installation, or for rea ke oe Throughout 
the program, emphasis is placed on isolating faults to the Field 
Replaceable Unit (FRU). 


The program runs in standalone mode in conjunction with the 
PDP-11 family Diagnostic Supervisor. In addition to host level 
testing, the program will implicitly invoke the TKSO’s controller 


resident Level 1 self-test microdiagnostics as well as explicitly 
invoking the controller's Level 2 microdiagnostics. 


1.2 Product Usere And Uses 


DMT testing 
As appropriate at various manufacturing facilities 


Field service personnel 


> WwW hf & 


DEC customers who choose to provide their own maintainance 


1.3 Performance Goals 


This program will test up to four TKSO's in a sequential 
manner. To run a full pass of the program, a scratch tape must be 
mounted in the transport and an operator must be present to perform 
manual intervention. However, appropriate subsets of the program can 
be run if there is no scratch tape, or the operator inhibits manual 
intervention tests. Furthermore, the first pass of the program will 
run in "quick verify” mode; i.e., a single iteration of each test will 
be performed. If multiple passes are specified by the operator, the 
second and all subsequent passes will run with each test executed with 
multiple iterations. First pass execution time will be approximatel 
20 minutes while second pass execution time will be approximately 
minutes. These pass times are based on a single unit under test. 


1.4 Pass/Fail Criteria 


This program employs a bottom-up approach to testing the TK50; 
thet is, Test 1 will attempt to verify the simplest level of 
host-to-controller communication as outlined in  UQSSP. Each 
subsequent test builds upon the functionality already verified in 
previous tests. Hence, most errors encountered by the program will be 
considered as fatal device errors and the failing unit will be dropped 
from the rest of the test sequence. 
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1.5 Failsoft Goals 
Unit specific a will be handled by the program. CPU 
faults (i.e., illegal traps or interrupts) will be handled by the 


Diagnostic Supervisor. System faults will be handled by the 
Diagnostic Supervisor, fault dependent. 


1.6 Restrictions 

; Although basic read/write testing is performed, this program 
is not interested in mene the subsystem’s data reliability. 
While recoverable data errors will be reported by the program, no 
attempt will be made to determine the subsystem’s compliance with 
error rates. Unrecoverable data errors will be considered as fatal 
device errors, although the media could be the causative factor. 


1.7 Non-Goals 

This program is intended to verify the gross functionality of 
host-to-controller communications, the integrity of the controller 
hardware, controller-to-drive | communication and the basic 
functionality of the drive. It is not intended as a verification of 
TMSCP protocol as implemented in the controller firmware, and no 
testing of TMSCP commands is provided. 


1.8 Runtime Environment Requirements 
Runtime environment requirements include: 
XXDP+ Diagnostic Supervisor 

PDP-11 Q-bus family CPU 

28 KW memory 

Console Terminal 

Load Device 

1 to 4 TKSO tape drives with controllers 
1 to 4 TKSO scratch cartridges (optional) 
LCP-5 UFD software (optional) 


ono UW Ff WwW Mf 
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2 USER INTERFACE 
2.1 User Dialogue 
The following user dialogue will be provided at program 


start-time to ellow the user to establish certain operational 
paremeters of the program. 


2.1.1 Hardware Questions - 


This set of questions must be answered when the program is 
first started. 


CHANGE HARDWARE (L)? no default 

oe OF UNITS (D)? enter number from 1-4 
x 

BASE ADDRESS (0) 774500? 

VECTOR (0) 224? 

UNIT NUMBER (0)? 


2.1.2 Definition Of Hardware Questions - 

CHANGE HARDWARE - This question merely wants to know if you want to 
reconfigure the units under test. It must be answered “yes” on the 
first pass of the program. 

NUMBER OF UNITS - Enter the number of TK50'’s to be tested. 

BASE ADDRESS - Enter the I0 address of the unit to be tested. 

VECTOR - Enter the vecter location to be used for the unit. 

UNIT NUMBER - Enter the MSCP-specified unit number for the unit. 


This entire set of questions will be repeated up to four times, 
depending on the user's response to the "number of units” question. 


2.1.3 Software Questions - 


Most of the optional seneeenan Fay of the program is either 
handled automatically by the program or through established procedures 
provided by the Diagnostic Supervisor hence there are no software 
questions. 


. 
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3 ERROR REPORTS 
Error reports will have two basic formats as described below. 
It is anticipated that, due to program partitioning, it will be 


possible to unambiguously define a single FRU as the cause of any 
error condition. 


3.1 Error Format 1 

This basic format will be used by all host level testing. 

CZTKA DVC FTL ERR eee ON UNIT 11 TST tt SUB ss PC: xxxxxx 
SA REG CONTENTS INCORRECT 

IN INIT SEQUENCE STEP #: n 

SA EXPECTED: yyyyyy SA RECEIVED: zzzzzz 

**eeeFAILING FRU: CNTL 


In this example, the fields have the following meanings: 


- eee = discrete error number as defined by program 


- 11 = logical unit number assigned to unit-in-error during 
hardware questions 


- tt = test number during which error occurred 

- ss = subtest number 

- XXXxXxXx = program location of error call 

CD pacaah Sea ees antes ee 
- yyyyyy = expected contents of SA register for this step 


- 2zzzzz = actual SA register contents 


3.2 Error Format 2 


This format will be used for errors detected by the Level 2 
microdiagnostics. 


The DUP “Receive Data” command is used to monitor the status 
of the Level 2 diagnostic and to collect results. It is valid to 
issue a “Receive Data” command at any time after the Level 2s have 
been started. 


CZTKA DEV FTL ERR eee ON UNIT 11 TST 09 SUB ss PC: xxxxxx 
DRIVE ERROR 
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**** LEVEL 2 MICRODIAGNOSTIC DUMP «*««« 


Program Status kKeKKEE 
Drive Status *e* 
Test Number tok 
Track Number tek kc 
TMSCP Command ok 


TMSCP Response Fl ++ 
TMSCP Unit Flags hy cheese 


Error Log (Tape Transfer Error) 


Error Format doko 
Error Flags ee 
Event Code kK 
Error er Level fea 
Number of Reties doje 
Position (Low Order) oer. 
Position (Hi Order eK 
Controller Status ok 
Drive Error Code kok 
Drive Flags ee 
Track number kok 
Physicel Block Number KEKE 
Logical Block Number eee 
Tape Count 0 kkk 
Tape Count 1 kK 
Tape Count 2 *kk 
Drive State kK 
Read/Write State Tt titty 
Operation Flags eeeeke 
Blocks Written Channel 1 Pett ttf 
Blocks Written Channel 2 eK KK 
Blocks Read Channel 1 KKK 
Blocks Read Channel 2 eeKEEE 
Soft Write Channel 1 titi? 4 
Soft Write Channel 2 Pert? tJ 
Ecc Corrected Channel 1 eet tt 3 
Ecce Corrected Channel 2 keREK 
Read Repositions Channel 1, Pt ttt td 
Read Repositions Channel 2 tt tits 


3.2.1 Program Status - 


The program status word is only valid when read with a eogee 
number of 1. Upon an error, it will contain the status field of t 
TMSCP command which produced the error. Note that there are Palen, 
diagnostic error codes which will be returned with a "“ST_DIA" 
diagnostic status. 


. If the test completed without a fatal or hard error, this word 
will be zero (Normal Successful Completion). 


———_ ee ee ee 
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| 
324 
325 
326 
aoe 3.2.2 Drive Status - 
329 The drive status word is only ated during the level 3 idle 
330 loop. Therefore, this word is only valid with a mess number of 2. 
331 This word will contain the status returned for the TMSCP “Get Unit 
332 Stetus” command. The unit flags for the "Get Unit Status” command 
$35 will be in the Unit Flag Field. 
335 
336 
ad 3.2.3 Test Number - 
339 This byte will contain the number of the test during which an 
340 error occurred (only valid when mess number is 1 and program status 
343 is non-zero). This is only used for the Level 2 diagnostic. 
343 
344 
ot 3.2.4 Track Number - 
347 This byte will contain the track number of track most recently 
944 written/read. Valid only for message number 1. 
350 
351 
aoe 3.2.5 TMSCP Command - 
354 This 7 will contain the opcode of the command in error 
355 (only valid when message number is 1 and progres status is non-zero). 
356 TMSC odes used include WRITE, READ, REPOSITION, ONLINE, AVAILABLE, 
£14 GET UNIT STATUS, and SET CONTROLLER CHARACTERISTICS. 
S44 3.2.6 TMSCP Response Flags - 
361 This byte will contain the flag field of the TMSCP response 
362 packet of the command in error. It will only be valid when the 
7 command in error field is valid. 
365 
366 
+44 3.2.7 TMSCP Unit Flags - 
369 This word will contain the unit flags for the "Get Unit 
370 Status” command issued during the Level 2 Idle Loop. From this word, 
371 the host program will be able to tell if the drive is write protected. 
sve Unit Flags are only valid when Drive Status is valid. 
374 
375 
La 3.2.8 Error Format - 
378 This byte will contain the format code for any hard error for 
379 which an error log was received. If no error log was received, this 
380 byte will contain 255 decimal (OFF Hex, 377 Octal, 11111111 Binary). 
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381 In this case, all information which follows may be ingnored (i.e. 
aoe it's undefined). This is also only valid for message 1. 
384 
385 
4d 3.2.9 Error Flags - 
388 This byte will contain the flags from the error 199: It is 
+44 only valid when the error log format code is not equal to 255(10). 
391 
392 
44 3.2.10 Event Code - 
395 This word will contain the event code of the error log. For 
396 more detail on this and other fields of the error log, please refer to 
397 "TKSO Magnetic Tape Sub-system Functions”, 11 January 1985, Ric 
398 Perron. 
399 
400 
401 
roe 3.2.11 Error Retry Level - 
404 This byte will contain the level field for a Tape Transfer 
405 error. Only valid when Error Log Format Code is equal to Tape 
406 Transfer error. 
407 
408 
409 
ai? 3.2.12 Number Of Retries - 
412 This byte will contain the retry field for a Tape Transfer 
413 error. Only valid when Error Log Format Code is equal to Tape 
414 Transfer error. 
415 
416 
417 
ais 3.2.13 Position - 
1 
420 This double word will contain the tape position for a Tape 
421 Transfer error. Only valid when Error Log Format Code is equal to 
422 Tape Transfer error. 
423 
424 
425 
rt 3.2.14 Controller Status - 
428 This byte will contain the controller status code and is only 
rs 34 valid when Error Log Format Code is equal to Tape Transfer error. 
431 
432 
Ha 3.2.15 Drive Error Code - 
435 This byte will contain the drive error code as reported for a 
436 Drive error. Only valid when Error Log Format Code is equal to Tape 
437 Transfer error. 
| 
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3.2.16 Drive Error Code - 
This byte will contain the drive error code as reported for a 


Drive error. Only valid when Error Log Format Code is equal to Tape 
Transfer error. 


3.2.17 Difive Flags - 


This byte will contain the drive flags. Only valid when Error 
Log Format Code is equal to Tape Transfer error. 


3.2.18 Track Number - 


This byte will contain the track number as reported for a Tape 
Transfer error. Only valid when Error Log Format Code is equal to 
Tape Transfer error. 


3.2.19 Physical Block Number - 


This word will contain the physical block number for a Tape 
Transfer error. Only valid when Error Log Format Code is equal to 
Tape Transfer error. 


3.2.20 Logical Block Number - 


This byte will contain the logical block number for a Tape 
Transfer error. Only valid when Error Log Format Code is equal to 
Tape Transfer error. 


3.2.21 Tape Counts 0, 1, And 2 - 


These bytes will contain the tape counts as reported for a 
Drive error. Only valid when Error Log Format Code is equal to Tape 
Transfer error. 


3.2.22 Drive State - 


This word will contain the drive state as reported in the 
error log. Only valid when Error Log Format Code is equal to Tape 
Transfer error. 


— 
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3.2.23 Read/Write State - 
3.2.24 Operation Flags - 


This word will contain the Operation Flags as reported in the 
error log. Only valid when Error Log Format Code is equal to Tape 
Transfer error. 


3.2.25 Controller Error Code - 


This word will contain the controller error code as reported 
for a Controller error. Only valid when Error Log Format Code is 
equal to Controller error. 


3.3 Get DUST Stetus 


The DUP “Get DUST Status” command can be issued to verify that 
the Level 2 diagnostics are still running. If the progress count 
received for two consecutive “Get DUST Stetus” commands is identicel, 
a tn wy has stopped. The Level 2 diagnostic should be aborted 

restarted. 


4 STOPPING THE LEVEL 2 DIAGNOSTIC 
The Level 2 diagnostic will never terminate itself. If it is 


desired to stop the test in progress, the host must issue the DUP 
“Abort Program” command. 


4.0.1 Blocks Written/Read - 


These double words will contain the current number of block 
written/read on a per channel basis. 


4.0.2 Soft Write Errors - 


These words will contain a count of the number of soft write 
errors on a per channel basis. 


4.0.3 ECC Corrected Error - 


These words will contain a count of the number of CRC 
miscompares on a data block during a read operation which were 
porversad by an ECC group. This count is maintained on a per channel 

esis. 


SEQ 10 
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4.0.4 Read W/Reposition - 


These words will contain a count of the number of CRC 
miscomperes on date blocks during a read operations which could only 
be corrected by repositioning. That is, the ECC group could not 
correct the read error for the date block without repositioning. 


4.0.5 Date Compare Error Information - 


This buffer area will contain the following information: byte 
number in error, expected byte, and actual byte read. The first 10 
bytes will be the byte value expected. The next 10 bytes will be the 
ote value read (actual). The final 10 words will contain the byte 
offset into the block in error (0 to 511). 


4.0.6 Number Of Data Compare Bytes - 


This word will contain the number of bytes which miscompared 
in the block. 


4.1 Diagnostic Error Codes 


In most cases, the Program Status Word will contain the error 
code returned by the controller firmware for the failing command. In 
the case where an error is detected by the diagnostic and not by the 
nag the Program Status Word will contain a diagnostic status 
code. 


The diagnostic status code is indicated by the “1F" hex status 
(ST.DIA : internal di stic status code - see MSCP specification). 
The subcodes will be as follows: 


4.2 Date Compare Error 


This indicates that the compare operation between the data 
pattern which was written and read failed. The date compare buffer 
area will contain up to 10 bytes of the failing record, including byte 
location within the block, expected and actual date read. In 
addition, e total count of the bytes in error is available. 


4.3 Controller Error 


This code will be set in response to the diagnostic internally 
receiving an error log indicating a controller error. The controller 
error code field will contain the error code received. 


SEQ 11 


- oo 
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4.4 Bad Peremeters Error 


This error code indicates thet the perameters passed to the 
Level 2 diagnostic were invelid. 


4.5 Bad Pattern 


This subcode indicates an internal diagnostic error and should 
never be seen. 


4.6 Response Address Error 


This subcode indicates an internal firmware or diagnostic 
problem and should never be seen. 


4.7 Host Address Error 


This subcode indicates an internal firmware problem and should 
never be seen. 


4.8 Unknown Error Log 


This subcode indicates an internal firmware problem and should 
never be seen. 


SEQ 12 
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S FUNCTIONAL DESCRIPTION 


The following test descriptions ell heave certain — in 
common. All errors specified below will cause the unit to dropped 
from the test, unless specifically noted to the rey: 
Furthermore, if the operetor has chosen gy (LOE fleg set) 
gcege loops will return to the inning of t test containing the 
feilure. Exceptions to this will also be noted explicitly below. To 
understand the normal four step initialization sequence, refer to the 
U@SSP; the descriptions of tests thet use this sequence will only 
highlight unique features utilized by that specific test. 


5.1 Test 1 - Existence Verfication Test 


This test verifies the existence of the IP and SA registers b 
simply addressing them. Failure here could be caused b incorrec 
address setting in the controller DIP switch, faulty controller logic 
or operator error in specifying base address. 


5.2 Test 2 - SA Register Krap Test 


This test commences the UQ-port initialization sequence, but 
sets the "WR" bit in its Step 1 peapenns to the controller. Upon 
seeing this bit set, the controller should immediately enter the 
Diagnostic Wrap Mode. The program will now write and read a floating 
1 pattern to and from the SA register. The process will then be 
repeated with a floating 0 pattern. 


A failure to echo the written date will result in a callout to 
the controller. If loop on error is set, the program will loop on the 
failing write and read. 


5.3 Test 3 - Initialization Test And Power Up Microdiagnostics 


This test commences the UQ-port initialization sequence with 
interrupts disabled. It will verify that all step transitions occur 
within the alloted time, and that all host supplied information is 
correctly echoed by the controller. The program further verifies that 
no interrupts occur as ea result of the step transitions. 


NOTE 


The diagnostic will verify thet interrupts do not 
occur at the vector assigned to the Unit Under Test 
(UUT). Inappropriate interrupts to an unassigned 
vector will be trapped by the Diagnostic Supervisor 
and will abort the program. 


It should be noted that, in accordance with the UQSSP, the 
controller's power-up microdiagnostics will be executed during Step 1 


os ne es a ee 
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699 of the sequence. oe" specific feilure codes will be ted in 
700 the SA regis te pa oA, the self-tests; these could be correleted to s 
701 failing test number as en sid in troubleshooting. All feilures_ in 
702 this test, however, will indicate the controller as the failing FRU. 
703 Ho had codes will be 10 consecutive numbers in the range of 
Ls os 600-699 (decimal); exact values have not been designated. 
706 | 
707 H 
La 5.4 Test 4 - Vector And Interrupt Test j 
710 Test 3 is repeated, this time with interrupts enabled. The 
711 checks of test 3 will also be performed, but now the program will also 
712 verify that an interrupt occurs at each step transition. No interrupt 
713 should occur at the end of step 4. Failures in this test will be 
4 attributed to the controller. 
716 
717 
Lt 5.5 Test 5 - BR Level Test 
720 This test insures that the TKSO cannot interrupt when the CPU priority 
721 is set to 7. The test - through only the first step of the init 
722 sequence, since the controll © Mill *n hang" waiting for the interrupt 
723 acknowledge. Failures in “wis test will be attributed to the 
724 controller. 
725 
726 
727 
728 5.6 Test 6 - Purge And Poll Test 
730 The initialization sequence will again be started by the host, 
731 but in step 3, the host will set the “PP” cPurge and Poll) bit. The 
732 first part of this test will simulate the UQSSP handshake for a bus 
733 adapter purge. The host will then request the controller to commence 
734 “poll” testing. The controller will now begin DMA activity in both 
735 directions to the host-identified communication area. The controller 
736 must end this test by leaving the communication area cleared and by 
4 Uf transitioning to step 4. The host will verify that the entire 
739 communication area is cleared. (Note: At the start of this test the 
740 host will have filled the communication area with a non-zero data 
741 pattern.) Ring depth in this test will be set to the minimal 
742 value(i.e., one), reducing potential impact on host memory in event of 
743 failure.Failures encountered will again be attributed to the 
744 controller. 
745 
746 
747 
ros 5.7 Test 7 - Maximum Ring Buffer Test 
750 This test is similar to test 5, but it will utilize the 
751 maximum allowable ring depth as specified in UQSSP. This value is 
Le equal to 128 command and 128 response slots of 32 bits per slot. | 
754 
755 | 
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5.8 Test 8 - Extended Address Test 


: The format of this test is similar to test 6, but the program 
will establish the communication area in the highest available memory 
locations. This will allow testing of the upper six bits of address 
logic on the controller board. 


NOTE 


The ability of this test to comprehensively test the 
upper six bits of address is dependent upon memory 
size of the run-time system. This test will be 
completely bypassed if the system has only 28K words 
of memory. 


5.9 Test 9 - Get DUST Status 


The Get DUST Status test will request and test the DUST status 
of each unit under test for two specific cases: 


1. No command modifiers set 
2. Illegal command modifiers set 


DUST status will be received from the unit under test after the 
program issues the Get DUST Status command available in DUP. The 
response packet received from the unit will be tested against a known 
good mask. If the expected and received bits do not match, excluding 
variable bits which will be discounted, an error will be reported. 


5.10 Test 10 - Execute Level 2 Microdiagnostics 


This test will invoke, via the DUP Execute Local Program 
command, the controller resident Level 2 microdiagnostics. These 
tests ere aimed at establishing full communication between the 
controller and drive, as well as performing functional testing of the 
drive. Refer to the Level 2 Microdiagnostic Functional Specification 
for a detailed description of these tests. Test progress will be 
monitored from the host with the Get DUST Status command. Most errors 
encountered in this test will be attributed to the drive. 


While the ievel 2 Microdiegnostics are executing, TMSCP 
commands will be rejected by the controller. The microdiagnostics, in 
conjunction with those portions of operational microcode utilized by 
them, will have responsibility for detecting and dealing with drive 
errors, including command timeouts and other communication failures of 
the drive. The host program will be responsible for monitoring 
overall execution of the microdiagnostics, via DUP commands, and 
detecting “hung” controller conditions, as well as any spurious 
interrupts generated by the subsystem. 


It is not possible for the Level 2 microdiagnostics themselves 
to guarantee that a scratch medium is mounted. They are reliant upon 
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host level software to protect user data from accidental destruction. 


The following sequence of tests will be performed twice, thus 
ensuring that both channels of the head receive equal testing. To 
reduce execution time, the entire sequence is performed first at the 
physical BOT end of tape, utilizing head channel 1. The tape will 
then be positioned to physical EOT end of tape and the entire sequence 
repeated, utilizing channel 2. Finally the tape is rewound and left 
at physical BOT. 


5.11 Micro Test Descriptions 
5.11.1 Test 1 - Simple Write/Read Test - 


This test will write several blocks of 1F and 2F data to the 
tape. The tape will be rewound and the blocks read back. The test 
will perform a compare operation of the data read back. This test 
verifies basic write/read capability. 


5.11.2 Test 2 - Streaming Write/Read Test - 


This test will write approximately 20 feet of tape on a single 
track with blocks of various data patterns. The tape will be kept 
streaming throughout the write. The tape will then be rewound and all 
records are read, again while streaming. Data compare is performed on 
all blocks. This test is intended to verify that the drive can write 
and read in a normal operational. 


5.11.3 Test 3 - Thrashing Write/Read Test - 


This test will again write 40 feet of tape on a single track; 
in this test delays will be inserted between the write blocks to force 
tape thrashing. After rewinding, the blocks will be read with forced 
delays bewteen reads. This test is intended to verify that tape 
oe ing and tensioning are not affected by frequent direction 
changes. 


5.11.4 Test 4 - Peak Shift Test - 
Test 2 is repeated, this time using the worst case MFM peak 


shift patterns. This test is intended to verify that the write 
precomensation logic is functioning properly. 


5.11.5 Test 5 - Signal Sag Test - 


Ten blocks will be written with random data. The tape will be 
rewound, then moved back and forth 10 times. The tape will then be 
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| 
870 positioned at logical BOT for the recorded track and read back. This 
4} test is intended to detect self-erasure of recorded data. 


875 5.11.6 Test 6 - Overwrite Test - 


877 é One hundred blocks of data will be written on a single track, 
878 using an "MW" date pattern. (A binary representation of the MW 
pattern is 1110111, although the actual n r of ones appearing in a 


{ 
| 
873 | 
i 
879 j 
880 roup is subject to further worst case testing by the Drive 
881 gent group.) The tape will then be rewound and rewritten. (The 
882 date pattern used for rewrite consists of 50 blocks of worst-case MFM 
883 followed ¥ 50 blocks of random data.) The purpose of the test is to 
884 guerantee that the drive is capable of overwriting previously recorded 
885 data. 
886 
rod 5.11.7 Test 7 - Track Access Test - 
889 bd pe blocks of data will be written on a single track. The 
890 tape will then be rewound, the head stepped to the next track and the 
891 same number of blocks will be written. This process will be repeated 
892 until all the tracks for that head have been written. The test will 
893 then reread the blocks from all data. This test is intended to verify 
894 tape tracking and the ability to successfully record and retrieve data 
895 on adjacent tracks. 
896 
897 
898 
44 5.11.8 Test 8 - Positioning Test - 
901 The primary purpose of this test is simply to perform the 
902 correct positioning of the tape for what is to follow; that is, the 
903 first time through the test sequence, this test will cause the tape to 
904 be positioned at the physical EOT end of tape, thus allowing the 
905 entire test cycle to be repeated for testing the drive's operation 
906 with channel 2 of the head. Upon second entry to this test, it will 
907 cause the tape to be positioned back at physical BOT. The test will 
908 include a coarse watch-dog timer to guard against a “hung” drive 
909 condition. 
910 
911 
912 
a3 5.12 Retry Algorithms 
915 The Level 2 microdiagnostics will make extensive use of 
916 portions of the controller's operational microcode, including retry 
917 algorithms intended to recover from data errors. Please refer to the 
918 TK30 Microcode Functional Specification for detailed descriptions of 
919 the retry algorithms. 
920 a 
| 
: 
} 


| PROGRAM HEADER 
| 


002042 


ee: 


AND TABLES 


002000 


060 
000000 
000170 
047540 
000000 
002202 
000000 
120004 
000000 
000000 
000000 
000000 
002124 
000000 
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- TITLE PROGRAM ee AND TABLES 
.SBTTL PROGRAM HEADER 


-ENABL 
“NLIST 
BGNMOD 


ABS, AMA 
BEX 


3+ 
; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER BGNDU,ERRTBL ,BGNRPT 


HEADER 
L$NAME:: 
ASCII 
ASCII 
ASCII 
ASCII 
ASCII 
BYTE 
BYTE 
BYTE 
L$REV:: 
. ASCII 
L$DEPO:: 
ASCII 
L$UNIT:: 
. WORD 
L$TIML:: 
. WORD 
L$HPCP:: 
. WORD 
L$SPCP:: 
. WORD 
L$HPTP:: 
WORD 
L$SPTP:: 
. WORD 
L$LADP:: 
. WORD 
L$STA:: 
. WORD 
L$CO:: 
. WORD 
L$DTYP:: 
WORD 
L$APT:: 
WORD 
L$DTP:: 
WORD 
L$PRIO:: 
. WORD 


CZTKA,A,0,120. ,0,PRIOO 
;DIAGNOSTIC NAME 

/C/ 

/2/ 

/T/ 

/K/ 

/A/ 

0 

0 

0 
;REVISION LEVEL 

/A/ 
30 

/0/ 

0 ;NUMBER OF UNITS 

120 ;LONGEST TEST TIME 
sPOINTER TO H.W. QUES. 

L$HARD 

Q sPOINTER TO S.W. QUES. F 
;PTR. TO DEF. H.W. PTABLE 

L$HW 

0 ;PTR. TO S.W. PTABLE 
;DIAG. END ADDRESS 

L$LAST 

Q ;RESERVED FOR APT STATS 

0 

0 ;DIAGNOSTIC TYPE 
;APT EXPANSION 
;PTR. TO DISPATCH TABLE 

L$DISPATCH 
;DIAGNOSTIC RUN PRIORITY 

PRIOO 


| PROGRAM HEADER 
| PROGRAM HEADER 


984 


er ee 


AND TABLES 


000000 
000000 


004 
000 


000000 
000000 


000000 
023412 
035002 
000000 
000000 
000000 
041104 
000000 
002150 
104035 
023052 
040574 
041054 
000000G 
023044 
000000 
000000 
000000 
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LSENVI:: won 6 ;FLAGS DESCRIBE HOW IT WAS SETUP 
L$EXP1:: ;EXPANSION WORD 
-WORD 0 

L$MREV:: ;SVC REV AND EDIT # 
-BYTE C$REVISION 
BYTE CSE 

LSEF:: ;DIAG. EVENT FLAGS 
-WORD 0O 
-WORD 0O 

L$SPC:: 
. WORD 

LS$DEVP:: ; POINTER TO DEVICE TYPE LIST 
-WORD LS$DVTYP 

L$REPP:: ;PTR. TO REPORT CODE 
-WORD LS$RPT 

L$EXP4:: 
-WORD 0O 

LS$EXPS:: 
-WORD O 

L$AUT:: ;PTR. TO ADD UNIT CODE 
.WORD 0O 

L$DUT:: ;PTR. TO DROP UNIT CODE 
WORD LS$DU 

L$LUN:: —_ ;LUN FOR EXERCISERS TO FILL 

L$DESP: : ;POINTER TO DIAG. DESCRIPTION 
-WORD LS$DESC 

L$LOAD: : ;GENERATE SPECIAL AUTOLOAD EMT 
EMT E$LOAD 

LSETP:: ;POINTER TO ERRTBL 
-WORD LSERRTBL 

L$ICP:: ;PTR. TO INIT CODE 
-WORD + L$INIT 

L$CCP:: ;PTR. TO CLEAN-UP CODE 
.WORD L$CLEAN 

LS$ACP: : ;PTR. TO AUTO CODE 
.WORD L$AUTO 

L$PRT:: ;PTR. TO PROTECT TABLE 
-WORD LS$PROT 

L$TEST:: ;TEST NUMBER 
WORD 0 

L$DLY:: ;DELAY COUNT 
-WORD 0O 

L$HIME: : ;PTR. TO HIGH MEM 
-WORD 0O 


| 
| PROGRAM HEADER 
| DISPATCH TABLE 


1007 002150 
002150 
002150 


a 
. 


AND TABLES 


103 


He 
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-SBTTL DISPATCH TABLE 


7 THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


DISPATCH 10. 
.WOR 10 
LS$DISPATCH: : 
-WORD Tl 
WORD T2 
WORD T3 
WORD T4 
WORD. TS 
WORD T6 
WORD T7 
-WORD 18 
.WORD T9 
WORD 1T10 
Leneer DESCRIPT <CZTKAAO TKSO FUNCTIONAL > 
132 124 aa /CZTKAAO TKSO FUNCTIONAL/ 


dj 


_—— — — + ee 








) 
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| DEFAULT HARDWARE P-TABLE . 7 nai =e 2 
1010 -SBTTL DEFAULT HARDWARE P-TABLE 
at 
1013 THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
1014 ; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
et ; IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES. 
1017 ; 
1018 002200 BGNHW DFPTBL 
002200 000003 -WORD L10000-L$HW/2 
002202 L$HW: : 
1019 002202 DFPTBL:: 
1025 002202 174500 -WORD 174500 ;TKIP BASE ADDRESS 
1026 002204 000260 -WORD 260 iV 
1027 002206 000000 -WORD 0 ;T/MSCP UNIT NUMBER 
1028 002210 ENDHW 
002210 L10000: 


—_— + 


| 


| PROGRAM HEADER AND TABLES 


a —- 


SOFTWARE P-TABLE 


10 
1038 002210 
002210 


1046 
1047 002212 
002212 


1048 
1049 002212 


000000 
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-SBTTL SOFTWARE P-TABLE 


“THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 


BGNSW SFPTBL 
-WORD L10001-L$SW/2 
L$SW:: 


SFPTBL: : 

ENDSW 
L10001: 

ENDMOD 


a +--+ 


a 





Ke 
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SOFTWARE P-TABLE 

1052 

1063 .TITLE GLOBAL AREAS 

1064 -SBTTL GLOBAL EQUATES SECTION 

1092 

1093 

1094 002212 BGNMOD 

1096 

¢ 

1097 ; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 

1098 ; ARE USED IN MORE THAN ONE TEST. 

1099 tase 


LL LL LL LLL LLL EE sc swe ip 


11 
1101 002212 


EQUALS 
; BIT DIFINITIONS 


BITO== BITOO 


; EV EVENT FLAG DEFINITIONS 
;  EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


: BIT POSITION IN SECOND STATUS WORD 


EF .ST4RT== 32. ; (100000) START COMMAND WAS ISSUED 

EF .RESTART== Sh. + (040000) RESTART COMMAND WAS ISSUED 

EF .CONTINUE== 30. 3 (020000) CONTI COMMAND WAS ISSUED 
EF .NEW== 29. s (010000) A NEW PASS HAS BEEN STARTED 
EF .PWR== 28. ; (004000) A POWER-FAIL/POWER-UP OCCURRED 


, PRIORITY LEVEL DEFINITIONS 


SEQ 23 


Le 
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GLOBAL EQUATES SECTION 


PRIO7== 340 
PRIO6== 300 
PRIOS== 240 
PRIO04== 200 
PRIO3== 140 
PRIO2*= 100 
PRIO1== 40 
PRIOO== 0 

; 

OPERATOR FLAG BITS 
EVL== 4 
LOT== 10 
ADR== 20 
IDUs= 40 
ISR== 100 
UAM== 200 
BOE == 400 


SEQ 24 


ae eee ee eS 


Me 
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GLOBAL EQUATES SECTION Potent fai =s a 
1106 £ Ff SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSESSSSSSSSSSSSSESSSSESSSSESSESE 
ties er 
1109 SLUN.BLOCK OFFSETS 
1110 ; THESE LITERALS ARE USED AS WORD OFFSETS INTO THE LUNBLK, WHICH 
1111 ; IS POINTED 10 THROUGHOUT THE PROGRAM BY 
1113 mana ee 
itis fF FSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSESSESSSSES 
1116 000000 TKIP = s 0 ;TKIP REGISTER ADDRESS 
1117 000002 TKSA == 2 ;TKSA REGISTER ADDRESS 
1118 000004 TKVEC == 4 ;TK INTERRUPT VECTOR 
1119 000006 MSCPUN == 6 ;T/MSCP UNIT NUMBER 
1120 000010 TKIPSV == 10 ;SAVE LOCATION FOR IP CONTENTS 
1121 000012 TKSASV == 12 ;SAVE LOCATION FOR SA CONTENTS 
1122 000014 LUNFLG == 14 ;BIT-SPECIFIC MEANINGS AS DEFINED BELOW 
1124 
1125 FF SSSSSSSSESSSSSSSSHSSSESSSSSSSSSSSSSSESSSSSSSSSSSSSSESSSESSSSESSESSESESE 
is £ FE SSSSSSSSSSSSSSSESSSSSSESSSSSSSESSSSSSESSESSSSSSSSSSSSS SESS SESS SSESESS 
1128 ;LUNFLG 
1129 ; THIS WORD IN LUNBLK IS USED TO CONVEY VARIOUS INFORMATION 
1130 ; IN A BIT-SPECIFIC MANNER. BITS USED BY THE PROGRAM ARE 
1131 ; DEFINED AS FOLLOWS. 
1133 MPTTTTTITITITITITITITITIITI TTI TIT TTT TTT i 
ize FF SSSSSSSSSSESSESSSSSSSSSSSSSSSSSSES SESS SESS SSS SSSSSSESSSESSESSE SESE SESEE 
il 
1136 000001 DRPFLG == BITO ;=0 UUT AVAILABLE FOR TEST 
1137 ;=1 UUT HAS BEEN DROPPED 
1138 000002 INTFLG == BIT1 :#1 EXPECTED INTERRUPT OCCURRED 
1140 000004 BRFLAG == BIT2 #1 INTERRUPT PRIORITY TEST 
1142 000010 DUPFLG == BIT3 ;=1 DUP COMMAND 
1144 000020 ABTFLG == BIT4 ;=1 ABORT LOCAL PROGRAM 
Pt 000040 CNTALC == BITS ;=1 RETURN TO DRS 


i a ee ee - 


Ne 


GLOBAL AREAS MACRO YOS.02 Tue 16-Apr-85 08:44 P 14 
GLOBAL EQUATES SECTION — ‘ oe 
1149 § SSSSSSESSSSSSSSSESSSSSSSSSSSSSSSSSESEESSEESESESESEEEESEESESEEEE 
tte §  PCSSSSSSSSSS SSS SSS ESSE EEEEESSESESESESEESESESEEESESEEEEEEESEES i 
; 
1152 ;UQ-PORT EQUATES | 
1153 ; THIS SECTION DEFINES THOSE LITERALS USED | 
1154 ; BY THE DIAGNOSTIC IN THE UQ-PORT PROTOCOL. 
1155 ; IN GENERAL THEY HAVE BEEN FORMED BY USING 
1156 ; THE TWO LETTER MNEMONIC DEFINED IN UQSSP, 
' ties ; PRECEDED BY “B.” INDICATING THEY ARE BITS. 
1159 § FSSSSSSSSSSSSSSSSSSSSSSESHSEH HSH SEEESEEEEEESEEEEEEEEESESEEESESES ' 
arty FSSC SSOSSSER ESSE EESEEESESSSS SET SSE eEESESEESEESESEEESESEEEEEEEES j 
ries s;READ-ONLY BITS | 
1164 004 8.S1 ss BITi1 sSTEP 1 | 
1165 010000 B.S2 ss BIT12 ;STEP 2 
1166 020000 B.S3 ss BIT13) = ;STEP 3 
re 040000 B.S4 ss BIT14 s;STEP 4 
1169 1 B.ER ss BIT15 sERROR INDICATION 
1170 002000 B.NV ss BIT10 ;=0 VECTOR IS HOST TABLE 
1171 001000 B.QB ss BIT9 :#1 SUPPORTS 22 BIT HOST 
1172 0004 B.DI ss BIT8 3*1 SUPPORTS ENHANCED DIAGNOSTICS 
1173 000200 B.0D ss BIT7 s*1 SUPPORTS ODD BUFFER ADDRESSES 
its 000100 B.nP ss BIT6 3=1 SUPPORTS ADDRESS MAPPING 
nv s;WRITE-ONLY BITS 
1178 100000 B.PP led BIT1S5  ;PERFORM PURGE AND POLL TESTS 
1179 040000 B.WR ss BIT14 sENTER DIAGNOSTIC WRAP MODE 
1180 000002 B.LF ss BIT1 ;LAST FAIL REQUEST 
1181 000001 B.PI ss BITO s;ENABLE ADAPTER PURGE INTERRUPTS 
th 000001 B.GO ss BITO ;GO BIT - START RUNNING 
HTT} ;READ/WRITE BITS 
rise 000200 B.IE == BIT7 ;STEP X-TION INTERRUPT ENABLE 
| 
| 


: os ae aS B3 
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GLOBAL EQUATES SECTION os ee — 


1189 MMe Tiiitiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii ty) 

1139 MerTiiiiiiiiiiiiiiiiiiiiiiiiiiiitiiiiiiiiiiiiiiiiiiiiiiiitiiiiti 

3 3 

13 ;GENERAL PURPOSE EQUATES 

194 : Iti iii iii iiiiiiiiiiiiiiiiiiiiitiiiiiiiiiiiiiiiiiiiiiiiiiiiiiy 
r33 Per itiiiiiiiitiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiitiiiiiiiti | 

1197 000004 VEC4 td 4 ;VECTOR FOUR - NXM TIMEOUTS, ETC. 
1198 177560 RCSR ss 177560 ;TERMINAL RECEIVE CONTROL/STATUS REGISTER ADDRESS 
pte 177562 RBUF ss 177562 ; TERMINAL RECEIVE BUFFER ADDRESS 


GLOBAL AREAS 


— ld ea i as te a 
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‘GLOBAL EQUATES SECTION 


177572 
177574 
177576 
172516 


172340 


172314 
172316 


000001 
000020 





C3 


SEQ 28 


FSSA E REESE EERE EREREEEREEEEEEEEEEEEEEEEEEEEEEEEEEEREEEE 
FESR EERE E EERE EERE EERE EEE EEE EEE EEEEEEEEEEEEEEEEEEE ERE EEEEE 


;MEMORY MANAGEMENT EQUATES 


FERRER ERE SEES EERE EEEEEEEEEEEEEEEEEEEEEEEEEEREEEEEEEERE 
5 ESE EEE ER EEE RE RARE EEEEEEREEEE REESE EEE EEREEEEEEEEEEEEEED 


MMUSRO == 177572 
MMUSR1 == 177574 
MMUSR2 == 177576 
MMUSR3 == 172516 
KPARO == 172340 
KPARL == 172342 
KPAR2 == 172344 
KPAR3 == 172346 
KPAR4 == 172350 
KPARS == 172352 
KPAR6 === 172354 
KPAR7T === 172356 
KPDRO == 172300 
KPDRIi === 172302 
KPDR2 === 172304 
KPDR3 == 172306 
KPDR4 === 172310 
KPDRS5 == 172312 
KPDR6 === 172314 
KPDR7 == 172316 
MMON = BITO 

MM220N == BIT4 


sSTATUS REG 0 


sSHOULD ONLY BE PRESENT ON 22 BIT CPU'S 
sKERNEL MODE PAGE ADDRESS REG 0 


sALWAYS FOR I/0 PAGE 
sKERNEL MODE PAGE DESCRIPTOR REG 0 


sENABLE MMU - MMUSRO 
sENABLE 22 BIT MMU - MMUSR3 


a ay 


SL ne me ee 


GLOBAL AREAS 


ee ee ee ee ee 


D3 
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GLOBAL EQUATES SECTION 


000000 
000004 
000010 
000011 
000012 
000012 


000014 
000020 


000014 


000024 


5 EERE EERE EERE EERE EE EREREREEEEEEEEEREREEEEEEEEEE 
5 FERRER EEE EEE EEE EEE EERE EEE EEE EEE EERE REAR EREEERERESERESEEEES 


; 

;COMMAND PACKET OPCODES 

; 

£ FERRERS ERE ERE EES ESE ERERESE REE EESE EEE EREEEEE EEE EEE 
§ EERE EEREEEREEEEREREEERAEEEE EEE EERE ESSERE EREEEREREEESE EEE ESEE 


OP.SCC == 04 ;SET CONTROLLER CHARACTERISTICS OPCODE 
OP.ONL == 11 ;ONLINE OPCODE 

OP.GDS == 01 ;GET DUST STATUS OPCODE 

OP.ELP == 03 ;EXECUTE LOCAL PROGRAM OPCODE 

OP.REC == 0S sRECEIVE DATA OPCODE 

OP.ABT == 06 ;ABORT PROGRAM OPCODE 

OP.END == 200 sEND MESSAGE FLAG OPCODE 


5 EERE EERE REE ERAE EEE ERAEERE EAE ER EERE EEE ERE EREEESE 
5 EERE EEE EEE EEE EER EEEEEREEEEREE ERE REE EEE EEEEERERERESE 


;GENERIC COMMAND PACKET OFFSETS 


o 
£ gE EEE REESE REESE EREREKEEEEE REESE EES EREREESE EE 
§ EERE EEE EEE ERASE ERE EEE EEE EEE ERE EAE EERE EEE EEEEE EEE 


P.CRF == 0 ;COMMAND REFERENCE NUMBER 
P.UNIT == 4 ;UNIT NUMBER 

P.OPCD == 10 ; OPCODE 

P.FLGS == 11 ;END MESSAGE FLAGS 

P.MOD == 12 sMODIFIERS / STATUS 

P.STS == 12 sMODIFIERS / STATUS 
P.BCNT == 14 ;BYTE COUNT 

P.BUFF == 20 ;BUFFER DESCRIPTOR 


5p EERE EEE ER EREREREREREEER EEE EEE ERERERERERERERERERERE RE 
FEES EKER EERE EERE EERE EERE EEE EEE EAEKEKEREREREEKERE 


;GET DUST STATUS END PACKET OFFSETS 


e 
FREESE EERE EERE EEE EERE EERE EERE ER ESEREREREREREREEE 
FERRER EERE ERE REE EKER REESE EEE EEEEREEREREREREEEEES 


P.EXT1 == 14 :1ST BYTE OF PROGRAM EXTENSION 
P.EXT2 == 15 32ND BYTE OF PROGRAM EXTENSION 
P.EXTS == 16 ;3RD BYTE OF PROGRAM EXTENSION 
DUSTFL == 17 ;FLAGS 

P.IND1 == 20 31ST WORD OF PROGRESS INDICATOR 
P.IND2 == 22 ;2ND WORD OF PROGRESS INDICATOR 
TIMOUT == 24 ; TIMEOUT VALUE 


| GLOBAL AREAS 


ed ee ee ee ee 
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| GLOBAL EQUATES SECTION 


~ ee 


100000 
004000 
000001 


000104 
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FERRER EEE ER EERE EERE ERE ERE ER ERE EE EERE EEEEEEEEEEEEEEEEREEEE 
55 EERE EERE REE EERE EERE EERE EEEE REESE RE EEEEEEAEEREREEEEEEESE 


;TKSA BIT DEFINITIONS 
; 


FFE ERE REE AE EERE REE REE ERE RAE EERE ERE EERE AR EEEEEEEEEAEE EEE EES 
5 EERE ERE ER ER ERE REE EERE REA ERR ERE ER ER EEE EE EREREREEEEEEEEEEEEEESE 


ERR ss 100000 ;ERROR 
$1 ss 004000 sSTEP 1 
GO se 000001 ;GO 


5 EERE ERR ERR EERE EERE ERE REE ERE REAR ER ERERE REE EEEEERERE EE EES 
5 EERE REE EERE REE EEE AREER ERE EEEEEEEEEEEEEEEEREEEEEEEEEE SEEKERS 


;U/Q PORT LITERALS 


5 EERE EERE REE REE REE EER EERE EERE REEEREREEEEEEEEEEREEEEEE 
FERRER ERE ERE REE EEE EEE EERE REE ERA R EE ER EEE RERE EERE EEEEEEEEREEES 


es 100000 sDESCRIPTOR OWNERSHIP BIT 
FLAG #2 040000 ;DESCRIPTOR INTERUPT FLAG BIT 
IMM ss 000200 sIMMEDIATE COMMAND FLAG 
TF.BLK == 10 ; TAPE FORMAT 
HSTIMO == 0 sHOST TIMEOUT VALUE 
MSCPVR == 0 sMSCP_VERSION NUMBER 
RNGSTP == 4. s;DESCRIPTOR RING STEP 
RSPSTP == 68. sRESPONCE BUFFER STEP 


ee 


ee ee 
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‘GLOBAL EQUATES SECTION of » age SEQ 31 
1321 FERRERS EEE EERE EERE EREREREREEEEERESEEEEDE 
1356 FEES ERERKERAREREREEREREEERESEREREREREREEEEESE 
1324 ;TMSCP DRIVER BUFFER OFFSETS 
1326 ; PEER EREEEEEEEKEEREEEEREREREREREREREREREEAKEREREEESESREREREEE 
t356 FERRER ERE EEE ERE EEE EEEREREREEEREEEEEREEERESERERERESE 
1329 000002 HIADDR == 2. ;DESCRIPTOR ADDRESS OFFSET 
1330 177777 CONID == Bi ;COMMAND/RESPONSE CONNECTION TYPE I.D. 
1331 177776 D as -2. ;COMMAND/RESPONSE CREDIT LIMIT OFFSET 
1332 177774 MSGLEN == -4. ;COMMAND/RESPONSE MESSAGE LENGTH 
1333 000005 TXFER == 5. TERROR FORMAT FOR "TAPE TRANSFER” ERROR LOG 
1334 000011 DRVER == 9: ERROR FORMAT FOR “DRIVE ERROR” ERROR LOG 
1335 000000 CNTER == 0. ERROR FORMAT FOR “CONTROLLER ERROR” ERROR LOG 


——--—- - - ———---- 5 


| 
| GLOBAL 
| GLOBAL 


—— <= el A I 
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EQUATES SECTION 


000140 








GS 


i A i i ts te 


SEQ 32 


fF REE EERE ER ERE EERE EEE EE RERE RARER EEE AREA ERE ER EREREREREEEEEEEERE 


5p EREEREEEEEEE EERE EERE REE EERE RE EE EEE E EEE EE EERE EEE EERE EEE EERE EES 
;OFFSET VALUES INTO LEVEL 2 MICRODIAGNOSTIC RECEIVE DATA BUFFER 


; 
5 EERE EERE ERE EEE REA EEE ER ER ERE EEER ERE RERAEAEREREEEEEEEE EE EES 
5 EERE REE EEE EER EE EAE EE ER EEE AREER REAR REE EREREREEEEEEREREEE SE EERE 


L2ELEC 


; OFFSET 


;OFFSET 


T OF 
OF T 


OF 


PROGRAM STATUS 
veare STATUS 


COMMA ERROR 
RESPONSE FLAG 


UNIT FLAGS 
BLOCKS WRITTEN CH. 1 


2 
SOFT WRITE ERRORS CH. 1 
SOFT WRITE ERRORS CH. 2 
ECC CORRECTED ERRORS CH. 1 


READ REPOSITIONS CH. 2 

ERROR LOG ERROR FORMAT 

ERROR LOG FLAGS 

ERROR LOG EVENT CODE 

ERROR LOG RETRY LEVEL 

ERROR LOG NUMBER OF RETRIES 
ERROR LOG POSITION (low order) 


OF ERROR LOG POSITION (high order) 


CONTROLLER STATUS 

ERROR LOG DRIVE ERROR CODE 
ERROR LOG DRIVE FLAGS 

ERROR LOG TRACK NUMBER 

ERROR LOG PHYSICAL BLOCK NUMBER 


F ERROR LOG MSB g TAPE LENGTH COUNT 


ERROR LOG DRIVE STATE 

ERROR LOG READ/WRITE STATE 
ERROR LOG OPERATION FLAGS 

ERROR LOG CONTROLLER ERROR CODE 


= | 


ne = —-——e—e ss seme 


— -- ee 


H3 
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| GLOBAL DATA SECTION 


~ 
w 
wo 
a) 


002212 000000 000000 000000 


002250 
002260 


.SBTTL GLOBAL DATA SECTION 


5 EKER ER EERE EERE EE REREEERERAEEEREREEERE EEE EEEREREEEREEESE 
5 EERE EERE EERE EREREREE ER EREEEEEEEEAEERERESS 


; THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
; IN MORE THAN ONE TEST. 


: 
5 ERE EERE EERE EEE EERE EREEEE EEE EEE EERE EE EEEEEREEEEE 
5 EERE EKER ERE ER EREREAREREREREEEEEAREREREEEREREREEERERESEE EEE 


5 EERE EEE AEE EEEEREEERERERERERAEREREREREREREREEEEEEE EEE 
5 EERE EEE EAE ERE REREREEEE EEE ERE REREEEEEREREEERERERESEEESEE 


; LUNBLK 

3 THIS BLOCK OF MEMORY IS USED TO STORE VARIABLE INFORMATION 
: PERTAINING TO THE CURRENT LOGICAL UNIT UNDER TEST. LUNBLK 
; IS POINTED TO THROUGHOUT THE PROGRAM BY R4 AND INDIVIDUAL 
3 LOC..TIONS ARE ACCESSED VIA LITERALS DEFINED ABOVE. 


3 
5 EERE EEE EKER EEE EEK EEE EEE EEE EERE EE REREREEERERERERESEE 
5 EERE RARER KEE EER EEE EEE EERE AREREREREREKEKEEE 


LUNBLK: : -WORD 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


5p EERE ERE REE EEE EERE EEE AREER EEK EEE EKEE AREER KEKE EEEREREK 
| haan eae las eae eae 


;UQ-PORT NECESSITIES 

; THESE TABLES ARE SET UP BY VARIOUS 

; TESTS WITH VALUES TO BE WRITTEN TO 

; THE PORT, AND COMPARISON VALUES TO 

; CHECK THE PORT AFTER EACH STEP TRAN- 
; SITION OCCURS, RESPECTIVELY. 


; 
5 EERE ERR EEE EEE EEE ERE EREEEEERKEEEE ERE EKER KEEEEEEEEREEEEE EES 
5 RRR EERE EEE EERE EERE REE EERE EEE EERE EERE EERE EEE EEE EES 


STPTBL: : -BLKW 4 ;VALUES WRITTEN TO THE PORT 
CMPTBL: : -BLKW 4 ;COMPARISON VALUES 


Fer 


1464 


AREAS 


a 
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DATA SECTION 


002334 





13 


SEQ 34 


| eeeiennnmanenmmemmntaemeenmemete anne 
5 EEREEEEEREREE EER EERE ERE ER EE EERE ERE EERE ER EREREEREREREREEEEEES 


| PROGRAM Wier a VARIABLES 


i GLOBAL VARIABLES ARE GENERALLY USED TO CONTROL THE 
: OVERALL EXECUTION OF THE DIAGNOSTIC. 


5 EERE ERE RE EE EAR AREER EEE AEE EERE ERA EER EREREREREREEREREREEREEEEE EE 
FERRER EERE AREER EEE ER ERE EEE KER EREREREREREREREEEEEEEEEEREREEEEE EEE 


PASCNT:: . WORD 

000000 ITRCNT:: . WORD 
000000 KTFLAG:: . WORD 
000 TRP4FG:: . WORD 
000000 PAROFF: : . WORD 
000000 CMMERR: : . WORD 
0000: CMTBLG:: WORD 
000000 CMARLG: : WORD 
000000 FRUIS: . WORD 
000 LOGUNT . WORD 
SAE WORD 

10000: INISTP . WORD 
000000 STEPST . WORD 
0000 WRDATA WORD 
000000 INNER WORD 
000000 OUTER WORD 
0000: TOUT: . WORD 
000000 TEMP: . WORD 
000000 FLAGS WORD 


ooo ooo 


oooooooocoooo0o 


sCUMULATIVE PROGRAM PASS COUNTER 
;LOADED BY EACH TEST TO SPECIFY # OF ITERATIONS 
3=0 MEMORY MANAGEMENT NOT AVAILABLE 
;=1 MEMORY MANAGEMENT IS AVAILABLE 
;=1 TRAP TO VECTOR OCCURRED 
;USED IN TEST 7 TO STEP Mae oe UPPER MEMORY 
+=0 NO ERROR IN COMMUNICATION AREA 

sel ERROR WITHIN COMMUNICATION “> 

=-1 ERROR BEYCND BOUNDS OF COMM AREA 
3 OF CONTIGUOUS WORDS IN ERROR IN COMM AREA 
;LENGTH OF COMM AREA FOR TEST _N 
sPOINTER TO FAULTY FRU ort FOR PRINTOUT 
;LOGICAL UNIT # OF CURRENT UUT 

;LOADED WITH EXPECTED SA FOR ERROR CHECKING 
;CURRENT STEP OF INIT SEQUENCE 
;SUCCESS/FAIL STATUS FROM STEP SUBROUTINES 
sLOADED WITH DATA FRO a al ODE TEST 


; TIMEOUT INDICATOR FOR PDELAY 
; TEMPORARY STORAGE LOCATION 
;WORK LOCATION FOR SUPERVISOR FLAGS 


seat een a 


- 


Ee se se 


| GLOBAL AREAS 
| GLOBAL DATA SECTION 


2 
002446 


002452 


002466 


eee ee 


J3 
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000020 
000000 
000000 
000001 


000000 
000000 


000000 
000000 
000000 
000000 


£5 EERE EEEEREEEEEE EER EREEER EEE EREEEE EER EREREEEEEEERESEESES 
5 ERASE ESE REEEE ERE REREEAEEEEEREREREREREEEEEEEEEREESEEE 


; TMSCP/DUP COMMAND PACKETS 


o 
5 EERE EEA EEEEEEEEEEREEEAREEEEREEEEEEREEEEEAEREEESEEEEESE 
5p EEREEREEEEEEEEREREEEREREREKEREREREREREREAREREEEEESEEEEERESEESE ESSE 


5 RRRREE REE E ER EE EEE RE EERE EEE E EERE EE EERE EE EERE EEE EEE EEE EEE EEE EES 
; 
;TMSCP SET CONTROLLER CHARACTERISTICS COMMAND PACKET 


° 
5 5 EERE REE EERE EEE EERE EE EEE ERE E EERE EE EEE EEE EEE EE EERE EE EERE SESE ES 


-W 
SCTRLC: os 


STARS 
;TMSCP ONLINE COMMAND PACKET 


‘ 
§ EERE REAR EEAERER EE EE EEE EK ERE EAREEEEEE EEE EREE ERE EE EEEEEEEEE 


Oo 
xD 
o 
ow 
oO 
o 


72s es es = = Dos 


-W 
ONLINE: oo 


= 

So 

P) 

o 
oooo°ooo0o 
oooooo: oo: 


sSTARS 

;DUP GET DUST STATUS COMMAND PACKET 

MTT TTCCTTTTTTTCTTTTTTITOTTTT TIT TT TTTTTTTTTTTT TTT TT TTT TTT TT 
.WORD 16.,0 

GDUST: [WORD 0,0 
"WORD 0,0 
"WORD  OP.GDS,0 


SEQ 35 


ail 


ee ee ees 2 


GLOBAL AREA 
‘GLOBAL DATA 


S 


————_—2 a oe 


K3 
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SECTION 


000014 


111 


101 


;DUP EXECUTE LOCAL PROGRAM COMMAND PACKET 


é 
£ FEES ESSER SS ES ES ESSER ERESESESESESESE SES ES ESE ES ESESES ES 


-WORD 18. 0 
XLOCPR: .WORD 0,0 
-WORD 0,0 


-WORD OP.ELP,O 
-ASCII /DIAGL2/ 
;STARS 
DUP RECEIVE DATA COMMAND PACKET 


o 
FF SSSSSESSSSSSESSSSESESS SSS SEES ESE SESE SESE SES ESESSESSESSERESESEERESS 


-WORD 20.,0 
RCVDAT: .WORD 0,0 
. WORD 


0,0 
WORD OP.REC,O 
WORD 150.,0 
WORD RDBUF,O 


;STARS 

;DUP ABORT COMMAND PACKET 

MTTTTTITITITTTTTITTTITTTTTTTTTIT TTT TTT TTT TT TTT TTT TTT TTT TTT TTT 
.WORD 12.,0 

ABORT: .WORD 0,0 
“WORD 0.0 
“WORD OP.ABT,O 


SEQ 36 


GLOBAL AREAS 
GLOBAL DATA SECTION 





L3 
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1568 002570 
Ta 44 002574 


5 Ff SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESESSESESESESESEEEEEEEES 
bf FSSSSSSSSSSSSSSSSSSSSSSSSSESSESSSSSESSESSSESEEESESEEESESESESEEES 


;CLASS DRIVER BUFFERS 


é 
FF SSSSSSSSSSSSSSSSSESSSSSSESSESSESSSESS SESE SSESKESEEEEESEESEEESES 


5 Ff FSSSSSSSSSSSSSSESSSSSSSSSSSSSSESSSSSESSSESESSSESERESEEESEESESEEES 


RESPE6F : : -BLKW 2. sTOP 4 LOCATIONS OF RESPONSE BUFFER 
RSPBUF : : -BLKW 66. ;DRIVER RESPONSE BUFFER 


5 Ff SSSSSSSSSSSS SEES SSSS SSS SESSESSSSESSSSSESESEESEEESEESEEEEEESEEEESE 
5 Ff FSSSSSSSSSSSSSSSSSSSSESESSESESSSSESSSESESESSEESESESESESESEE ESE EESESE 


;u/a PORT DESCRIPTOR RINGS 


: 
FF SSSSSSESSSESSSESSSS SESE SESESEEESSESSSESESESSEEESESESESEESESESEEE 


FF SESS EEEEEESESSESEEEESESEESEEEEEESSESEESEESESESEESEEEESESEEEEEEEES 


DSCRNG: : -BLKW 2. s;DESCRIPTOR RING 

RSPEND: : sEND OF RESPONSE BUFFER 
RSPRNG: : -BLKW 4, sRESPONSE DESCRIPTOR RING 
CMORNG: : -BLKW 4, sCOMMAND DESCRIPTOR RING 
DSCEND: : ;END OF DESCRIPTOR RING 


FF ESSE KEKE SES ESE SESE SESESEESEEEEASSESSSESEEESEEERESECEEEEEE 
5 RESO E EEE EEE EEE EEE EEEEEEEEEEEEEESEEEEEEEEEEEEEEEEEEEEEEEEEEEE 


;CLASS AND PORT DRIVER VARIABLES 


é 
55 EE EEE EEE EEE EE EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEDR EES 
55 FESS EEEE EEE EE EEEEEEEEOEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 


CNTHI: : 0 sVALUE OF THE HIGH TIMEOUT 
CNTFLG:: WORD sCONTROLLER FLAGS 
PCKSIZ:: WORD 0 sPACKET SIZE IN BYTES 
CMOREF : : ° 0 ;COMMAND REF oo NUMBER 
CMDCNT: : -WORD 0 sCOMMAND COUN 
WRBUF : : -BLKW 4096. ;WRITE BUFF ER 
CMDSAV: : -WORD 0 ;COMMAND DESCRIPTOR SAVE 
RSPSAV: -WORD 0 sRESPONSE DESCRIPTOR SAVE 
CMD -WORD 0 sPOINTER 10 CURRENT COMMAND ASCII 


SEQ 37 


— ae 


M3 
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GLOBAL DATA SECTION dcdiag — SEQ 38 
1606 PETIT Titi iii iti iii titi tii titi titi iti tii titiiiiiititititiitiiiy 
e734 fF PSSSSSESSSSESESESSSSSSESESESEESESESSSSSSESESESEESESESESESEEESES 
1609 ;PROTECTION TABLE 
1611 ; FECSSESSSSSSSESSSESESSSSESSESESSSSSSSSESSSESESESESSESSSESEEESEEES 
rtrd PETTITT iii tii iti ii iti iti ii tiiiitiiitiiiititiiiiiitirii iii iii | 
1617 023044 BGNPROT 

023044 L$PROT:: 

1618 023044 000000 -WORD 0 
1619 023046 177777 WORD -1 
ance 023050 177777 -WORD -l 
1622 023052 ENDPROT 
1623 


AREAS 


GLOBAL 
GLOBAL DATA SECTION 


066 
rt 023070 
14 | 023072 


1647 023102 
1648 023104 
1649 023106 
1650 023110 


1 
1652 023112 


1654 
ts 023120 
1657 023122 


? 023130 
1662 023132 


664 
1665 023140 
666 
667 023142 
1668 023144 
1669 023146 
1670 023150 
1671 
1672 023152 


—<— —— ee - e 


N3 
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000001 
000145 
030763 
033544 
000001 
000146 


031003 
033544 


000001 
000147 
031023 
033544 


000001 


STARS 
Stas ata anatase apa tate a tai = ni a i ate ce tae 


j ECSSSSSSE SESE SESESESESESESESEEEEESEEEEEESESEEESESESEEEEEEEESESE 
; 
sLEVEL 2 MICRODIAGNOSTIC ERROR TABLE 


3 
STARS 
ee 


FF SSSSSS SESS SE SESE SEESEEESESESESSESSESESESECESESEEEES 


ERRTBL 
LSERRTBL:: 
ERRTYP:: -WORD 0O 
ERRNBR: : -WORD O 
ERRMSG: : -WORD 0O 
ERRBLK:: -WORD 0O 
L2ETBL:: ;START OF TMSCP COMMAND ERROR MESSAGES 
-WORD 1. ; INVALID COMMAND 
WORD 101. 
WORD L2ER1 
WORD L2DUMP 
-WORD 1. ;COMMAND ABORTED 
-WORD 102 
WORD L2ER2 
WORD L2DUMP 
-WORD 1. ; UNIT -OFFLINE 
-WORD 103 
WORD L2ER3 
WORD L2DUMP 
-WORD 1. ; UNIT-AVAILABLE 
-WORD 104. 
WORD L2ER4 
-WORD L2 
.WORD 1. sINVALID STATUS 
WORD 105 
WORD L2ERS 
WORD L2DUMP 
-WORD 1. ;WRITE PROTECTED 
-WORD 106. 
-WORD L2ER6 
WORD L2DUMP 
-WORD 1. ;COMPARE ERROR 
-WORD 107 
WORD L2ER7 
WORD L2DUMP 
-WORD 1. ;DATA ERROR 


SEQ 39 


wom eee 


--—— 


GLOBAL AREAS 


‘GLOBAL DATA SECTION 


1673 023154 
1674 023156 
1675 023160 


1676 
1677 023162 


rt 023210 


1692 023212 
1693 023214 
1694 023216 
1695 023220 


96 
1697 023222 
1698 023224 
1699 023226 
1700 023230 


1 
1702 023232 


1705 023240 
1707 023242 


1712 023252 
1713 023254 
1714 023256 
1715 023260 


6 
1717 023262 
1718 023264 
1719 023266 
rer 023270 


1722 023272 


000001 
000164 
031364 
033544 


000001 
000165 
031412 
033544 


000001 
000166 
031430 
033544 


000001 
000167 
031451 


. WORD 
. WORD 
. WORD 


a. 
119. 
L2ER19 





—_—_ —- --~— —_—— - _-— —- — 


B4 
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SEQ 40 


;HOST BUFFER ACCESS ERROR 


sCONTROLLER ERROR 


;DRIVE ERROR 


sFORMATTER ERROR 


BOT ENCOUNTERED 


; TAPE MARK ENCOUNTERED 


INVALID STATUS 


RECORD DATA TRUNCATED 


sPOSITION LOST 


sSERIOUS EXCEPTION 


sLEOT DETECTED 


- em 


eee Se 


a ee eae ee 


' GLOBAL 
‘GLOBAL DATA SECTION 


i730 023310 033544 


AREAS 


023312 
023312 


023320 
023322 


023330 
023332 
023334 
023336 
023340 
023342 
023344 
023346 
023350 
023352 


023370 


023372 
023374 


—— Se a ee 
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000001 
000177 
032261 
033544 


L2MSG: 
DCERR: 


CNTERR: 


INVSTA: . 


BPNERR: . 


RSPADD: . 


HBFADD: . 


UNERLG: . 


RSPTO: 


. WORD 


— Ec 


SEQ 41 


sSTART OF MICRODIAGNOSTIC DETECTED ERROR MESSAGES 
;DATA COMPARE ERROR 


sCONTROLLER ERROR 


s;INVALID STATUS 


;BAD PATTERN NUMBER 


sRESPONSE ADDRESS ERROR 


sHOST BUFFER ADDRESS ERROR 


sUNKNOWN ERROR LOG RECEIVED 


sRESPONSE TIMEOUT ERROR 


aa 
' 


ne 


D4 
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| GLOBAL TEXT SECTION . = 

1774 .SBTTL GLOBAL TEXT SECTION 

1778 METI iii iii ititiitititiiiiiiiiiiiiiititititiititittiiiiiiiiiiiitt | 

1D PPE TT titi tri ti titi i titi ttt tii ti tiiitititi iii itticitiriiiiiiiiiiig 

; 

1781 ; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 

1782 3 ; MESSAGES, AND ASCII INFORMATION THAT ARE USED IN ? 

res ; MORE THAN ONE TEST. | 

1785 5p SedeSSRRNSSSSTCCRRESSSESORSTESE;SeSoESSERESEESseeSCRESREEeseeeS 

+7ee PETIT iti titiiiiititiiiiitiiiiiitiiiiiiiititiiitiiitititiriii iii | | 

1788 

Eis PETIT iti tiiitiitiiiiiitisecitiiiititititiitiiitiiiiiiiriiiririts | 

3 

ree ; NAMES OF DEVICES SUPPORTED BY PROGRAM 

Ete TTT TTT TTT TTT TTT TTT TTT TTT TTT TTTETTT TTT TTT TTT TTT TTT TTT TT TT 

1798 023412 DEVTYP <TKS0O> 

023412 L$DVTYP:: 
023412 124 113 065 -ASCIZ s#TKSOs 
.EVEN 

1799 
| 
: 
1 


1860 


AREAS 


023746 


023772 
024035 


026423 


- ee ee ees ae oe 


GLOBAL MACRO YOS.02 Tues 
GLOBAL TEXT SECTION 





SS 





E4 


day 16-Apr-85 08:44 Page 28 SEQ 43 


55 EERE ERE E EER EERE EERE RE EEE RARER ERERER EER EREREEEEEEEEEERERE 


;}FORMAT STATEMENTS 


i 
FERRER EERE REE EERE REE ERE EEE RARER EEE EE EERE EREEREREREREEE EEE EES 


-ASCIZ 


LINE1:: 
L 


?SAINIT SEQUENCE STEP #: #D1? 

2SNSASA REG: S06%A EXPCTD: s06NA ACTUAL SA: #06? 
?SNSAIP REG ADDRESS: #067? 

?2SNSAeeeeFAILING FRU: STsAeeeesNSN? 

?SARELOCATION CONSTANT: #068A VIRT. ADD: #06? 
?2@NSAEXPECTED: S068A RECEIVED: #06? 

?SAPHYSICAL ADD: #06? 


?SNSASA REG: #06%A SA CONTENTS: #06? 
?SNSAFAILING COMMAND : STN? 

28NSA RESPONSE PACKET#N? 

?SNSA =—sSO06KA #06? 

?sNSACMD EXP: S06%A CMD REC: #06? 


?8N? 

?SNSAFAILING COMMAND : sTSNSAUNIT UNKNOWN? 
?SNSAFAILING COMMAND : #TSNS#SANO MEDIA MOUNTED? 
?SNSAFAILING COMMAND : #TSNSAUNIT INOPERATIVE? 


?SNQSAeee* LEVEL 2 MICRODIAGNOSTIC DUMP *##««? 
?SN28APROGRAM STATUS: #06? 


?SNSADRIVE STATUS: #03? 
?SNSATEST NUMBER: #03? 
?SNSATRACK NUMBER #03? 
?SNSATMSCP COMMAND: #03? 
2sNSATMSCP aay FLAG: #03? 
?sNSATMSCP UNIT FLAG: 06 


#06? 
PRNEBABLOCKS WRITTEN CHANNEL 1: D6? 
?2SNSABLOCKS WRITTEN CHANNEL 2: #06? 


?SNSABLOCKS READ CHANNEL 1: #06? 
?SNSABLOCKS READ CHANNEL 2: #06? 
?SNSASOFT WRITE CHANNEL 1: #06? 
?SNSASOFT WRITE CHANNEL 2: #06? 


?SNSAECC CORRECTED CHANNEL 1: %06? 
?SNSAECC CORRECTED CHANNEL 2: #06? 
?SNSAREAD REPOSITIONS CHANNEL 1: #06? 
?SNSAREAD REPOSITIONS CHANNEL 2: sD6%N? 
?#N2SAERROR Fomtay. (TAPE TRANSFER — 


?sNSAERROR F 

?sNSAERROR FLAGS: #03? 
?SNSAEVENT CODE: #06? 
?SNSAERROR RETRY LEVEL: #03? 
?SNSANUMBER OF RETRIES: #03? 


?6NSAPOSITION (LOW ORDER): #06? 
?SNSAPOSITION CHIGH ORDER): #06? 


?SNSACONTROLLER STATUS: #03? 
?SNSADRIVE ERROR CODE: #03? 
?SNSADRIVE FLAGS: #03? 
?sNSATRACK NUMBER: #03? 


?SNSAPHYSICAL BLOCK NUMBER: #D6? 


: 
— 


Se a 


AL AREAS 


———— lL 


GLOBAL TEXT SECTION 


1861 026462 
1862 026524 
1863 026566 


186 
e444 027071 
1871 027130 


1881 030260 


1891 030334 
1892 030355 
0406 


1901 030726 


1903 030763 
1904 031003 


1917 031334 
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045 L234:: .ASCIZ ?sNSALOGICAL ~e a #03? 
045 L235:: .ASCIZ ?#NSATAPE COUNT #03? 
045 L236 ASCIZ ?#NSATAPE COUNT 3 #03? 
045 L237:: .ASCIZ ?SNSATAPE COUNT 3 $ #03? 
045 L238:: .ASCIZ ?#NSADRIVE STATE: #06? 
045 L239:: .ASCIZ ee ichattae P aa. #06? 


045 [240:: “ASCIZ 2?sNSAOPERATION FLAGS: 606? 
062 L241:: “ASCIZ ?sN2SAERROR LOG (CONTROLLER ERROR)? 
045 L242:: ‘ASCIZ 2sNSACONTROLLER ERROR CODE: #06? 


062 L244:: .ASCIZ ?SN28ABYTE READ: 038A BYTE WRITTEN: 
?ssNSA SO38A 


ae oe ee | ete = 


#038A BYTE ADDRESS: #06? 
803s #06? 


045 L245:: .ASCIZ A 

045 L246:: .ASCIZ ?ssNSA SO038A S038A #06? 
045 L247:: .ASCIZ ?s8NSA S038A 8038A #06? 
045 L248:: .ASCIZ ?sNsA s038A SO038A #06? 
045 L249:: .ASCIZ ?ssNSA SO03KA S038A #06? 
045 L250:: .ASCIZ ?sNsA S038A SO3KA #06? 
045 L251i:: .ASCIZ ?sNsA SO038A SO038A #06? 
045 L252:: .ASCIZ ?sNSA 803A S038A #06? 
045 L253: ASCIZ A #06? 


8 2sNSA S03KA 803s 
062 L254:: .ASCIZ ?sN2SATOTAL NUMBER OF MISCOMPARED BYTES: #06? 


5 EERE ERE REE EEE REREREREREREREREREEERERERERERERERERERESRE 


ERROR MESSAGES 


; 
5p EERE ERE ERE ERE KER EREREREREREREREREREEKEREEE EEE 


115 EMSGS:: .ASCIZ ?NXM ON READ TKIP? 

111 EMSG6:: .ASCIZ ?TKIP NOT O ON FIRST READ? 

115 EMSG7:: .ASCIZ ?NXM ON READ TKSA? 

040 EMSG8:: .ASCIZ ?SA REG IN ERROR ON FIRST READ? 
040 EMSG9:: .ASCIZ ?SA CONTENTS IN ERROR? 

040 EMSG10::.ASCIZ ?SA WRONG IN DATA WRAP? 

120 EMSG11::.ASCIZ ?EXPECTED INTERRUPT DID NOT OCCUR? 


< EMSG12::.ASCIZ ?INTRRPT OCCURRED WITH CPU PRIORITY = 7? 


EMSG13::.ASCIZ ?SA_ NOT O IN oe Pas OLL? 
122 EMSG14::.ASCIZ ?PURGE/POLL TEST FAILED? 
124 €MSG15::.ASCIZ ?EXTENDED ADDRESS TEST FAILED? 


126 L2ER1:: .ASCIZ ?INVALID COMMAND? 

115 L2ER2:: .ASCIZ ?COMMAND ABORTED? 

111 L2ER3:: .ASCIZ ?UNIT-OFFLINE? 

111 L2ER4:: .ASCIZ ?UNIT-AVAILABLE? 

126 L2ERS:: .ASCIZ ?INVALID STATUS RECEIVED? 
i411 L2ER6:: .ASCIZ ?WRITE PROTECTED? 


123 L2ER9:: .ASCIZ ?HOST BUFFER aS ERROR? 
116 L2ER10::.ASCIZ ?CONTROLLER ERRO 

111 L2ER11::.ASCIZ ?DRIVE ERROR? 

122 L2ER12::.ASCIZ ?FORMATTER ERROR? 

124 L2ER13::.ASCIZ ?BOT ENCOUNTERED? 

120 L2ER14::.ASCIZ ?TAPE MARK ENCOUNTERED? 
126 L2ER15::.ASCIZ ?INVALID STATUS RECEIVED? 


SEQ 44 


| GLOBAL AREAS 


1918 031364 
1919 031412 
1920 031430 
192 1451 


1957 032733 


A ee 


L2ER16::.ASCIZ 


G4 
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; GLOBAL TEXT SECTION 


?RECORD DATA TRUNCATED? 
IT OST? 


?7MICRODIAGNOSTIC PROGRAM 


?MICRODIAGNOSTIC PROGRAM 


?TIME OUT DURING PORT INIT? 


?PORT INIT FAILED? 
?TMSCP COMMAND FAILURE? 
?PORT DETECTED ERROR? 


?RESPONSE OUT OF SEQUENCE? 
?COMMAND TIME OUT? 
Hop ye Ut STATUS FOR ONLINE RECEIVED? 


UP COMMAND FAILURE? 


: DATA COMPARE ERROR? 

: CONTROLLER ERROR? 

: eee per see had 
: BAD PATTERN NUMBER ERROR? 
: RESPONSE ADDRESS E 

: HOST BUFFER 


RROR? 
ADDRESS ERROR? 
ROR LOG RECEIVED? 


: UNKNOWN ER 
: RESPONSE TIMEOUT ERROR? 


5 pA EEE EEE EER ERE ERE REE EREREREREREREREREREREREREREEEREEREREESE 


; MISCELLANEOUS ERROR MESSAGES 


i 
5 pA ERE REE ERERE EAE EEE EKER EREREREREREREREREREREREREEE 


CTRL:: .ASCIZ 


ABTCMD: : .ASCIZ 


?CNTRLR/CABLE? 
?DRIV 


~~ 

@ 

o 

wm 
VV VD DV OD VD IT) 
~ 


' 


| GLOBAL AREAS 
| GLOBAL ERROR REPORT SECTION 


+4 032740 


1982 032740 
1983 032740 


032760 
1985 032764 


033014 
fone 033020 


1989 033022 


033070 
1995 
1996 033074 


ee ee 


H4 
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013746 


062706 
000452 


010246 


062706 


000413 


010246 


062706 


002316 
023420 
000002 


000006 


000012 


000004 


000012 


023746 
000002 


000006 


172346 
023626 
000003 


000010 


-SBTTL GLOBAL ERROR REPORT SECTION 
i senneoeesenesesssssnsssssscsassssssesessesssssessessssssssessees 
5 ERRRER EERE EERE EERE EERE EERE EEE EE EERE ER ER ER ER EREEEE EEE ER ERE EEE EE 


;GLOBAL ERROR REPORTS 

; THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB 

i AND PRINTX CALLS THAT ARE USED IN MORE THAN ONE TEST. 
; IT ALSO INCLUDES THE ASCII MESSAGES THAT ARE USED BY 
; THE PRINTB AND PRINTX CALLS. 


os 
5 EERE ERE EREE EEE EERE CAKE EEE EERE EER ERERERERESSE 
5 EERE EAE EEE EEK EAE ERE EAE EK ERE EEA ERE EEE ERE REEEREEEEEEEE 


BGNMSG 

PRIINI: 
* PRINTX #LINE1, INISTP 

MOV INIST SP) 

MOV #LINE1, -(SP) 
MOV #2,-(SP) 
MOV SP,RO 
TRAP C$PNTX 
ADD #6, SP 

PRISA: : ‘ 
PRINTX Creu ae 
MOV bo oe gp (SP) 
MOV SAEXP, -( SP) 
MOV TKSA(R4), -(SP) 
MOV #LINE2, ~(SP ) 
MOV #4,-(SP) 
MOV SP.RO 
TRAP C$PNTX 
ADD #12,SP 
BR PRIERR 

PRIPAD: : 
PRINTX #LINE7,R2 
MOV he ) 
MOV #LINE7,-(CSP) 
MOV #2,-(SP) 
MOV SP,RO 
TRAP C$PNTX 
ADD #6, SP 
BR PRIDAT 

PRIVAD: : 
PRINTX #LINES,KPAR3,R2 
MOV R2,-(SP) 
MOV KPAR3,-( SP) 
MOV #LINES, - (SP) 
MOV #3,-CSP) 
MOV SP,RO 
TRAP C$PNTX 
ADD #10,SP 

PRIDAT: : 


ee ee ee ee oe, 


| GLOBAL AREAS MACRO YOS.02 Tuesda 
| GLOBAL ERROR REPORT SECTION 





14 
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1997 033074 


03 
1998 033120 
033122 


cote 033252 


2014 033256 
2015 033256 


033274 


011246 
012746 023703 
012746 000003 


062706 000010 


016446 000000 
012746 023534 
ty Ee 000002 


062706 000006 


013746 002310 
012746 023564 
012746 000002 


062706 000006 
000137 033536 


013746 002316 
012746 023420 
012746 000002 


062706 000006 


016446 000012 
012746 000003 


062706 000010 
000137 033512 


013746 023042 
012746 000002 


104415 
062706 000006 


PRINTX #LINE6,R1,(R2) 
MOV (R2),-CSP) 
MOV R »-(SP 
MOV #LINE6, -( SP) 
MOV »- (SP 
MOV »RO 
TRAP C$PNTX 
ADD #10,SP 
BR PRIERR 

PRIIP:: 
PRINTX #LINE3, TKIP(R4) 
MOV TKIPCR4), -CSP) 
MOV #LINE3,-(SP) 
MOV #2,-(SP) 
MOV SP,RO 
TRAP C$PNTX 
ADD #6, SP 

PRIERR: : 
PRINTB #LINE4,FRUIS 
MOV FRUIS, -( SP) 
MOV #LINE4 , -(SP) 
MOV SP ,RO 
TRAP C$PNTB 
ADD #6, SP 
JMP PRIEX 

WRINTO:. 
PRINTX #LINE1,INISTP 
MOV INISTP,-CSP) 
MOV #LINE1,-(SP) 
MOV #2,-(SP) 
MOV SP,RO 
TRAP C$PNTX 
ADD #6,SP 

WRPRTE: : 
PRINTX #WR1,TKSACR4), TKSASV(R4) 
MOV TKSASV(R4),-CSP) 
MOV TKSACR4),-( SP) 
MOV #WR1,-CSP) 
MOV P,R 
TRAP C$PNTX 
ADD #10,SP 
JMP WREX 

WRCMDE: : 
PRINTX R2,CURCMD 
MOV CURCMD, -( SP) 
MOV R2,- P) 
MOV #2,-(SP) 
MOV SP,RO 
TRAP C$PNTX 
ADD #6, SP 


SEQ 47 


' 
—! 


i GLOBAL AREAS 


2016 


0 
2017 


2018 


0 
2027 
0 


033300 
033300 


033410 


033466 
0 


033516 


a ee ee we 
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010301 
011146 


001357 
012746 


000137 


013746 


062706 


013746 
012746 


024071 
000001 


024211 
000001 


000004 
033512 


023042 
024035 
000002 


000006 
000000 
000000 


024147 
000003 


000010 
023042 


024035 
000002 


000006 


002310 
023564 


177774 


1$: 


WRSEQE: : 


WRTOE:: 


WREX:: 


PRINTX 


R3, 
#WR4,2(R1),(R1) 
(R1i),- ) 
2(R1),-CSP) 

#WR ) 


1 
#4 ,MSGLEN(R3) 


#WR6 
#1, -(SP) 


#WR2 , CURCMD 
CURCMD , -( SP) 
#WR2, -( SP) 
#2,-(SP) 


SP ,RO 
CSPNTX 
#WR5,P. CRF CRS), P.CRFCRS) 
“ was” SP) 
P.CRF(R3), -(SP ) 
5,-(SP) 


#LINE4 ,FRUIS 
#LINE4, -(SP) 


ee 


_ rr A St se ~~ sess eam 
one eae —— 


| GLOBAL AREAS 


033522 
03 


03 
2043 etsy 


0 
2045 03 


0 
2046 033660 


So 
w 
w 
~N 
_ 
°o 


033724 


a ee +e ee eee ee, 








K4 
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012746 
0600 


104423 


013746 


000002 


000006 


024417 
000001 


000004 


024473 
000002 


000006 
000006 
024571 
000002 


000006 


000007 
024631 
000002 


PRIEX: 


+f Se 


CHPNTB 
#6 , SP 


MSG 
J$JMP 
L10003-2-. 


C$MSG 
L2DUMP 
#LINE4 ,FRUIS 
FRUIS, -(SP) 
#LINE4 , -(SP) 
#2,-(SP) 
SP,RO 
C$PNTB 
#6 , SP 
#L21 
#L21,-(SP) 
#1,-(SP) 
SP,RO 
C$PNTB 
#4, SP 
#L22,L2STACR1) 
L2STACR1),-(SP) 
#122, -(SP) 
#2,-(SP) 
SP,RO 
C$PNTB 
#6 , SP 
#L23,L2DRV(R1) 
L2DRV(R1), -(SP) 
#23, -(SP) 
#2,-(SP) 
SP,RO 
C$PNTB 
#6, SP 
cS »L2TSTC(R1)> 
L2TST(R1),(SP) 
#124, -(SP) 
#2, -(SP) 
SP,RO 
CSPNTB 
#6,SP 
25, <B,L2TRK(R1)> 
CoTRKCRI), (SP) 
25,-(SP) 


#2,-(SP) 
SP *RO 


ee 





L4 
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GLOBAL ERROR REPORT SECTION tine 
033726 104414 TRAP C$PNTB 
033730 062706 000006 ADD #6, SP 
2048 033734 PRINTB #L26,<B,L2CMD(R1)> 
033734 005046 CLR 
033736 156116 000010 BISB L2CMO(R1), (SP) 
033742 012746 024671 MOV 91.26, -(SP) 
033746 012746 000002 MOV #2, -(SP) 
033752 010600 MOV P,RO 
033754 104414 TRAP C$PNTB 
033756 062706 000006 ADD #6, SP 
2049 033762 PRINTB #L27,<B,L2RSP(R1)> 
033762 005046 CLR -(SP 
033764 156116 000011 BISB L2RSPC(R1), (SP) 
033770 012746 024731 MOV #L27,-(SP) 
033774 012746 000002 MOV #2,-(SP) 
034000 010600 MOV SP ,RO 
034002 104414 TRAP C$PNTB 
034004 062706 000006 ADD #6, SP 
2050 034010 PRINTB #L28,L2UNT(R1) 
034010 016146 000012 MOV L2UNT(R1),-CSP) 
034014 012746 024771 MOV #28, -(SP) 
034020 012746 000002 MOV #2,-(SP) 
034024 010600 MOV SP,RO 
034026 104414 TRAP C$PNTB 
034030 062706 000006 ADD #6 , SP 
2051 034034 126127 000134 000005 CMPB L2ELFM(R1), #TXFER ;"TAPE TRANSFER” ERROR LOG ? 
2052 034042 001402 BEQ 1$ sYES, DUMP “TAPE TRANSFER" ERROR LOG 
2053 034044 000137 034720 JMP 10$ NO, CHECK “CONTROLLER ERROR” ERROR LOG 
2054 034050 1$: PRINTB #L221 
034050 012746 025601 MOV #L221,-(SP) 
034054 012746 000001 MOV #1,-(SP) 
034060 010600 MOV P,RO 
034062 104414 TRAP CsPNTB 
034064 062706 000004 ADD #4, SP 
2055 034070 PRINTB L222, <B,L2ELFM(R1)> 
034070 005046 CLR P) 
034072 156116 000134 BISB L2ELFMCRL), (SP) 
034076 012746 025646 MOV #L222, -(SP) 
034102 012746 000002 MOV #2,-(SP) 
034106 010600 MOV SP,R 
034110 104414 TRAP C$PNTB 
034112 062706 000006 ADD #6 , SP 
2056 034116 PRINTB L223, <B, L2ELFL(R1)> 
034116 005046 CLR 
034120 156116 000135 BISB CSELFLCRI), (SP) 
034124 012746 025710 MOV #223, -(SP) 
034130 012746 000002 MOV #2. -(SP) 
034134 010600 MOV P,RO 
034136 104414 TRAP C$PNTB 
034140 062706 000006 ADD #6, SP 
2057 034144 PRINTB L224. L2ELEV(R1) 
034144 016146 000136 MOV L2ELEV(R1), -(SP) 
034150 012746 025752 MOV #1224, -(SP) 
034154 012746 000002 MOV #2, -(SP) 
034160 010600 MOV SP ,RO 
034162 104414 TRAP C$PNTB 


034164 062706 000006 ADD #6 , SP 


cs see 


— ——— I 








| GLOBAL AREAS MACRO YOS.02 Tuesday 16-Apr-85 08:44 Page 29-5 
| GLOBAL ERROR REPORT SECTION 


| 2058 034170 
! 0 7 


2 0600 
034210 104414 
062706 


0 
2061 034270 


0 
2062 eeasie 
0 
2063 ot oy 


034 
2064 034370 


> 
4 
& 
s 


0 
| 2065 034416 


034416 005046 
034420 156116 


000144 
026011 
000002 


0001 
026255 
000002 


000156 
026317 
000002 
000006 


000157 


PRINTB 
CLR 
BISB 
MOV 
MOV 
TRAP 
AD 
ae 
BISB 


#L225,<B,L2ELRL(R1)> 
L2ELRL(R1), (SP) 
#L225,-(SP) 


SP,RO 

C$PNTB 

#6, SP 
#L226,<B,L2ELRT(R1)> 
L2ELRT(R1),(SP) 
$L226,-(SP) 

#2, -(SP) 

SP,RO 

C$PNTB 

#6,SP 
#L227,L2ELP1(R1) 
L2EL PiCRi), -(SP) 
#L227, -(SP) 

rs P) 


P,RO 

C$PNTB 

#6 , SP 

tot ther: ) 
L2ELP2(R1),-( SP) 
L228, (SP ) 


C$PNTB 
#6, SP 
0229, <B,L2ELST(R1)> 
(oe st(R1), (SP) 
1.229, -(SP) 
02, -(SP) 
SP RO 
CsONTe 
06, SP 
0.330, -*B, L2ELDE(R] )> 
L2ELDE(R1), (SF) 
L230, -(SP) 
#2, -(SP) 
P,RO 
CSPNTB 
#6, SP 
L231, <B,L2ELDF(R1)> 
(SELOFCRL), (SP) 
231, -(SP) 
#2,-(SP) 
SP ,RO 
CSPNTB 
#6, SP 
0232, <B, L2ELTN(R1)> 
(SEL TNCRLD, (SP) 


—_—_ — a ee es Cs 


SEQ 51 


ee ee eee ee ee eee eee -  — eee oe eee 





a ee ee 


N4 
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034424 012766 026361 MOV L232, -(SP) 
034430 012746 000002 MOV #2,-(SP) 
034434 010600 MOV SP‘ RO 
034436 104414 TRAP  C$PNTB 
034440 062706 000006 A $6, SP 

2066 0 PRINTB #L233,L2ELPB(R1) 

016146 000160 MOV L2ELPB(R1),-(SP) 

0 012746 026423 MOV L233,-(SP) 
034454 012746 MOV ao 
034460 010600 MOV ;RO 
034462 104414 TRAP C$PNTB 
034464 062706 000006 ADD #6, SP 

2067 034470 PRINTB #L234,<B,L2ELLB(R1)> 
034470 005046 CLR -(SP 
034472 156116 000162 BISB  L2ELLB(R1),(SP) 
034476 012746 026462 MOV 6L234, -(SP) 
034502 012746 000002 MOV #2,-(5P) 
034506 010600 MOV SP; RO 
034510 104414 TRAP C$PNTB 
034512 062706 000006 ADD #6,SP 

2068 034516 PRINTB 01235, <B,L2ELTO(R1)> 
034516 005046 CLR 
034520 156116 000163 BISB (Set 700R1), (SP) 
034524 012746 026524 MOV 235, -(SP) 
034530 012746 000002 MOV #2,-(SP) 
034534 010600 MOV SP RO 
034536 104414 TRAP  C$PNTB 
034540 062706 000006 ADD #6, SP 

2069 034544 PRINTB L236, <B,L2ELTI(R1)> 
034544 005046 CLR 
034546 156116 000164 BISB (oe 7101), (SP) 
034552 012746 026566 MOV L236, -(SP) 
034556 012746 000002 MOV #2,-(SP) 
034562 010600 MOV P'RO 
034564 104414 TRAP  C$PNTB 
034566 062706 000006 ADD #6,SP 

2070 034572 PRINTB 1237, <B,L2ELT2(R1)> 
034572 005046 CLR 
034574 156116 000165 BISB Lae. TacAt, (SP) 
034600 012746 026630 MOV L237, -(SP) 
034604 012746 000002 MOV #2,-(SP) 
034610 010600 MOV SP ‘RO 
034612 104414 TRAP C$PNTB 
034614 062706 000006 ADD #6,SP 

2071 034620 PRINTB #L238,L2ELDS(R1) 
034620 016146 000166 MOV L2ELDS(R1), -(SP) 
034624 012746 026672 MOV #L238, -(SP) 
034630 012746 000002 MOV #2, -(SP) 
034634 010600 MOV SP.RO 
034636 104414 TRAP  C$PNTB 
034640 062706 000006 ADD 06, SP 

2072 034644 PRINTB #L239,L2ELRW(R1) 
034644 016146 000170 MOV L2ELRWC(R1),-(SP) 
034650 012746 026731 MOV L239, -(SP) 
034654 012746 000002 MOV 2. -($P) 


010600 MOV SP,RO 
034662 104414 TRAP CSPNTB 
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| 034664 062706 000006 %, 
2073 034670 PRINTB #1240,L2ELOF(R1) 
0 016146 000172 MOV L2ELOF(R1), -(SP) 
034674 012746 026770 MOV 6.240, -(SP) 
034700 012746 000002 MOV #2,-(SP) 
034704 01 MOV 
34710 062706 000006 ‘ 
2074 034714 000137 034774 JMP 253 
2075 034720 126127 000134 000000 10%:  CMPB L2ELFM(R1),@CNTER ; "CONTROLLER ERROR” ERROR LOG ? 
2076 034726 001022 BNE 25$ INO, NO ERROR LOG 10 PRINT, EXIT 
2077 034730 PRINTB 91241 ;DUMP “CONTROLLER ERROR” ERROR LOG 
34730 012746 027027 MOV L241, -(SP) 
034734 012746 000001 MOV #1, -(SP) 
34740 010600 MOV SP RO 
034742 104414 TRAP CSPNTB 
34744 062706 000004 ADD 64,SP 
2078 034750 PRINTB #L242,L2ELEC(R1) 
34750 016146 000140 MOV L2ELEC(R1),-(SP) 
034754 012746 027071 MOV L242, -(SP) 
034760 012746 000002 MOV #2, -(SP) 
034764 010600 MO 
034766 104414 TRAP  C$PNTB 
34770 062706 000006 ADD #6, SP 
2079 034774 25$: EXIT MSG 
34774 000167 “WORD  J$JMP 
tat 034776 000000 "WORD L10004-2-. 
2081 035000 ENDMSG 
35000 L10004: 


035000 104423 TRAP C$MSG 


ene eee 


| 
| 


AL AREAS 


2096 


03 
2097 

0 

0 
2098 

0 


0 
2099 
0 


2100 


035002 
035002 


035002 
035002 


035162 


ee ee 


C5 
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016146 
012746 
012746 
010600 
104416 
062706 
016146 


016146 
012746 
012746 
010600 


000006 
000024 
025137 
000002 
000006 
000030 


025203 
000002 


000002 


000006 


000036 
025313 
000002 


-SBTTL STATISTICAL REPORT SECTION 
STARS 


SERS ESAS ERES SEES ESAS EEAERERESRERERERESESES ES 
STARS 


iain ia i a aa Na ati ag it REN at 


STARS 


;STATISTICAL REPORT SECTION 
THESE ARE 


“PRINTS” STATEMENTS USED TO DUMP THE LEVEL 2 


THE 
; MICRODIAGNOSTIC TEST RESULTS 


FREESE SESE SESS ERE EERE EES ESSER ERESEEEEESEEEEEES 
STARS 


FESS SEES EE EEEERESE SESE SEES ESSERE EE ERERESEEEEEREEESE 


BGNRPT 
L$RPT:: 


#L29,L2BWR1(R1) 
L2BWR1(R1),-CSP) 
#L29,-(SP) 
#2,-(SP) 

SP,RO 

C$PNTS 

#6, SP 

L210, L2BWR2(R1) 
L2BWR2(R1), -(SP) 
#1210, -(SP) 

#2, -(SP) 


SP ,RO 

C$PNTS 

#6, SP 
#L211,L2BRD1(R1) 
L2BRDI(R1), -(SP) 


aL211..-(SP) 
2,-CSP) 
<p. »RO 


CSPNTS 


6, SP 
$0312 ,L2BRD2(R1) 
L2BRD2(R1),-CSP) 
#L212,-(SP ) 
#2,-CSP) 
P,RO 


C$PNTS 


#6, SP 
#L213,L2SWR1(R1) 
L2SWR1(R1),-CSP) 
#L213,-(SP) 
+ $s -(§P) 
P,RO 
CSPNTS 


6,SP 
$1314 ,L2SWR2CR1) 
L2SWR2(R1),-CSP) 
#L214,-(SP) 
#2,-(SP) 
SP,RO 


as we ee - 


AL_AREAS 


0 

2102 035216 
0 
0 

2103 cetses 


2104 siper 


0 
2109 eoreee 


0 
2110 035426 
035426 


i 





MACRO YOS.02 Tuesday 16-Apr-85 08:44 


016146 
012746 
012746 
010600 
104416 
062706 
026127 
001002 
000137 


016146 


062706 
016146 


TISTICAL REPORT SECTION 


000040 
025357 
000002 


000042 
025423 
000002 
000006 
000050 
025467 
000002 
000006 
000052 
025533 
000002 
000006 
000124 
036052 
000100 
000054 
000066 
027130 
000004 
000012 
000102 
000055 
000067 
027224 
000004 
000012 
000104 


000000 


i$: 





D5 
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C$PNTS 


#6, SP 
#L215,L2ECC1(R1) 
L2ECC1(R1), -( SP) 
per Sl 


C$PNTS 

#6, SP 

#1216 ,L2ECC2(R1) 
L2ECC2(R1), -(SP) 
#1216, -(SP) 

#2, -(SP) 

SP,RO 

CSPNTS 

#6 , SP 
#L219,LOREP1(R1) 
L2REP1(R1),-CSP) 
#L2 SP ) 


#2,-(SP) 

SP,RO 

C$PNTS 

#6, SP 

#220, L2REP2(R 
L2REP2(R1),-(S 
L220, -(SP) 
#2,-(SP) 

SP,RO 

C$PNTS 

#6 ,SP 
Tete 


Ure 
wwe 


10$ 
#L244,<B,66(R1)>,<B,54(R1)>,100(R1) 
100(R i),-(SP) 


p 
54(R1), (SP) 

-(SP) 
66(R1),(SP) 
#L244 , -( SP) 
#4 P) 


SP,RO 

C$PNTS 

#12,SP 

#1245, <B, t+ lade <B,S5(R1)>,102(R1) 

wy ),-CSP) 

SS(R1),(SP) 
-(SP) 

67(R1), Ff. 

#L245,-(SP) 

#4, -(SP) 

SP RO 

C$PNTS 


#12,SP 
#L246,<B, 70(R1)>,<B,56(R1)>,104(R1) 
104(R1), -(SP) 


a 


sANY DATA COMPARES ? 
sYES, LIST THEM 
3NO, FINISHED 


i 


AREAS 


035432 


0 
2111 035466 
035466 


0 
2112 Soeese 


0 
2113 cesnee 


03 
2114 cee 


035662 
2115 035666 
035666 
035672 
035674 


ee ee el ee eee ee 


Je 
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156116 
005046 


016146 
005046 
156116 
005046 
156116 
012746 
012746 
010600 
104416 
062706 


016146 
00 


016146 
005046 
156116 


000056 
000070 
027320 
000004 
000012 
000106 
000057 
000071 
027414 
000004 
000012 
000110 
000060 
000072 
027510 
000004 
000012 
000112 
000061 
000073 
027604 
000004 
000012 
000114 
000062 
000074 
027700 
000004 
000012 
000116 
000063 


-(SP) 
56(R1), (SP) 
-(SP) 
70(R1),CSP) 
#L246,-(SP) 
#4, -(SP) 
P,RO 
C$PNTS 
#12,SP 
#L247, <B, fest? <B,57(R1)>,106(R1) 
106(Ri),-(SP) 
-(SP) 
so ths te » (SP) 
71(R1), (SP) 
~ 247,-(SP) 
#4, -(SP) 
‘RO 
C$PNTS 
#12,SP 
#L248, <B, oe <B,60(R1)>,110(R1) 
110(R i), -(SP) 
-(SP) 
we 5 fa » CSP) 
72(R1), (SP) 
#L248,-(SP) 


SP,RO 
C$PNTS 
#12,SP 
#1249, <B, ior <B,61(R1)>,112(R1) 
112(Ri), =(SP 


exh), » (SP) 


73(R1), (SP) 
Hd P) 


SP.RO 
C$PNTS 
#12,SP 
#L250,<B, 74CR1)>, <B,62(R1)>,114(R1) 
114¢R1), =(SP) 
eat), (SP) 
74(R1),(SP) 
#L250, -(SP) 
#4, -(SP) 


SP,RO 
CSPNTS 
#12,SP 
e251, see faa »<B,63(R1)>,116(R1) 


SP) 
63(R1), (SP) 


ee 


STATISTICAL REPORT SECTION 


035702 156116 000075 
035706 012746 027774 
000004 





2116 035726 
035726 016146 000120 


035734 156116 000064 
005046 


035742 156116 000076 

035746 012746 030070 

035752 012746 000004 
010600 


035762 062706 000012 
2117 035766 
035766 016146 000122 
005046 


035772 
035774 156116 000065 
036000 005046 


036002 156116 000077 
036006 012746 030164 
036012 012746 000004 


036022 062706 000012 
2118 036026 

036026 016146 000124 

036032 012746 030260 

Pernas 012746 000002 


036046 062706 000006 


035722 062706 000012 
2119 036052 
0 
| 
' 
| 


10$: 


110005: 
T 


FS 
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2,SP 
#1252, <B, 76(R1)>,<B,64(R1)>,120(R1) 
120(R1),-CSP) 


-(S 
neg Se » CSP) 
76(R1),(SP) 
#L252,-(SP) 
#4,-(SP) 
P,RO 
C$PNTS 


#12,SP 
#L253,<B,77(R1)>,<B,65(R1)>,122(R1) 
122(R1),-CSP) 

-(SP) 

ot os a 

77(R1), (SP) 

#L253,-(SP) 

#4, -(SP) 

SP ,RO 

C$PNTS 

#12,SP 

#L254,124(R1) 

124(R1),-(SP) 

#2, -(SP) 

P,RO 

C$PNTS 

#6, SP 


C$RPT 


= - 5 


SEQ 57 


ee ee ooo 
ee CU sas _ 


| GLOBAL AREAS 


-— ee ee ee 


| @-0A. SUBROUTINES SECTION 


036054 
036054 


036054 005237 002276 
036060 


036060 
. 036060 000002 


-SBTTL 


5 EERE ERERERERERERERERERERERER ERE EERE EEE REREREREREEEE EEE SES 
enn 


GS 
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GLOBAL SUBROUTINES SECTION 


;GLOBAL SUBROUTINES SECTION 
THIS S 


ECTION CONTAINS ALL SUBROUTINES AND 
INTERRUPT SERVICE ROUTINES THAT ARE AC- 
CESSED FROM ANYWHERE IN THE PROGRAM. 


5 EKER EEEREREREEEEEEEEEREREEEREEEREREE EERE EREEEEEEEEEEEES 
ERR ERASER EERE EEE EERE EE EEE EEEEREREREREEEEEE 


5 EERE EREREREEEEEEEEEAEEKERERERE REE EREREEERERESERERESES 
ERE ERE EERE EREREEEEEEEERERERERERERERES 


TRAP4 


THE ADDRESS OF THIS ROUTINE IS LOADED 


IRST TI 
CATCH NON-EXISTENT MEMORY TIMEOUTS IN 
THE EVENT THE HARDWARE IS NOT REALLY PRE- 
SENT ? IS MALFUNCTIONING. IT SIMPLY 
SETS A FLAG, INDICATING THE TRAP OCCURRED. 


5p EERE EKER ERE EEE EAEARE EERE EERE AREREREREREKEEERESRE 
5p ERE EER EKER ERE AEE EEE EEA EREREREREREREAEREREREREEERERERE 


BGNSRV TRAP4 


TRAP4: : 
INC TRP4FG ;SET THE FLAG - TRAP OCCURRED 
ENDSRV' 

L10006: 
RTI 


| GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


036062 


036070 
036070 


036070 
. 036070 


H5 
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052764 000002 000014 


000002 


5 EERE EEAREREREREREEERERE EER EEE EERE EERE EERE EER EEEEEEERESE 
5 ERE EE EERE EEE ER EEER EERE ERE REEERE EEE EREREEESEREREEESE 


SINTRCV 


ee @e Se ee ee oe Ge Se 


THIS IS THE TKSO INTERRUPT HANDLER USED BY THE PRO- 
GRAM WHEN INTERRUPTS HAVE BEEN ENABLED. IF THE 
BRFALG IS CLEAR, THE ROUTINE SETS A FLAG INDICATING 
THE EXPECTED INTERRUPT OCCURRED. IF BRFLAG IS et. 
IT INDICATES THAT PROCESOR PRIORITY WAS SET TO A 
LEVEL THAT SHOULD HAVE INHIBITED THE INTERRUPT, SO 
THE ROUTINE SETS AN ERROR INDICATOR. 


5 EERE EERE EERE ERE EERE EERE EEE EREEEAEREEEEEEREEEREREEESE 
£5 EERE EERE ERERERE EER ERERERERERESEREREREEEEEEEEEEREREEE 


INTRCV:: 


5$: 


EXTINT: 
L10007: 


BGNSRV INTRCV 


BIT #BRFLAG ,LUNFLG(R4 ) 


BEQ S$ ; THEN S 
MOV #DRPFLG,LUNFLGC(R4 ) ;_ ELSE SET FAILED BIT 
BR EXTINT ;RETURN 


BIS #INTFLG,LUNFLG(R4) ;SET THE FLAG 


ENDSRV 
RTI 


;IF NOT PRIORITY LEVEL TESTING 
KIP AROUND 


a - = 


ems SUBROUTINES SECTION 
2203 
2204 
2205 
2206 
2207 
2208 
| 
‘ 


2217 
2218 036072 
036072 
2219 
2220 036072 052764 000001 000014 
2221 
2222 
2223 036100 
036100 
036100 000002 


15 
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£ EERE REAR EEE EREEEEEEA ERASER ERE EER EREREREEEEEREREREREE 
5 EERE EREREREREEEAEEEEEEEEEEREEAEREEEEEEEREREREREEEEEERERESES 


SILLINT 

; THIS HANDLER ROUTINE’S ADDRESS IS LOADED INTO THE 
; CURRENT UUT‘'S VECTOR FOR ALL TESTS THAT DO NOT EN- 
i ABLE DEVICE INTERRUPTS. 


+ 
5 PERERA EREEEREREEEA EEE ERAEEEEEE EEE EERE EEE EREEEE ERE EEEEEEEEEEE 
£ EERE EE EEEREEE EERE EEA EEEEEEEEEEREREREREREREEES 


BGNSRV ILLINT 
ILLINT: : 


BIS #DRPFLG,LUNFLGCR4 ) 


ENDSRV 
L10010: 


SEQ 60 


ee ee 


| GLOBAL 


$545 
2246 


2247 
2248 


AREAS 


036102 
036102 


0 
036156 
036162 


9 
036164 


036170 
036172 


036176 
036202 
036202 
036206 
036210 
036214 
036216 
036222 
036224 
036230 


6 
036232 


036236 
036240 
036244 


036246 


036252 
036252 


. ee ee 


J5 


MACRO YOS.02 Tuesday 16-Apr-85 08:44 Page 34 
| GLOBAL SUBROUTINES SECTION 


012746 


000000 
0 


001367 


005737 
001026 
005237 


005737 


012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 


005737 
001005 
005237 
000402 


005037 


012700 


000010 
177572 
000001 
002116 
177772 
177756 


002276 
002274 
172516 
000001 
002116 
177772 
177756 


002276 
002274 


002274 


000004 


5 EERE EEEEEEEEEEEEEREEEEEREEEREEEEEEEEREREEEEERERESRERESEESEEE 
5 EERE ERE EERE ERE ERE REEREREREEEEEERERE EER EREEEEEEEEE SEE 


sKTTEST 
; THIS SUBROUTINE IS USED BY THE INIT CODE TO 
; DETERMINE IF THE MEMORY MANAGEMENT UNIT IS 
i PRESENT. IF SO, IT RETURNS A FLAG IN THE 

; SET STATE. OTHERWISE THE FALG IS CLEAR IN 
; WHICH CASE TEST SEVEN IS BYPASSED. 


’ 
£5 ERE EEREREEEREREEEAEEKEREEEREREREREREEEEEEREREEEREREEEEESS 
5 EERE REREREREREREAEEREREEEAEREREEEAERERESREREREREEERESESES 


KTTEST: : 
“SETVEC #VEC4,#TRAP4, #PRIO7 ;SET UP FOR POSSIBLE NXM 
MOV #PRIO7,-(SP) 

MOV #TRAP4, -(SP) 

MOV #VEC4, -(SP) 

MOV #3,-(SP) 

TRAP CSSVEC 

ADD #10, SP 


TST MMUSRO ;ARE YOU THERE, MMU? 

DELAY 1 ;GIVE NXM TIMEOUT A CHANCE 
MOV #1,(PC)+ 

- WORD 

MOV L$DLY,(PC)+ 

. WORD 

DEC -6(PC) 

BNE 7-4 

DEC -22(PC) 

BNE .-20 

TST TRP4FG ;IF NXM OCCURRED 

BNE NOKT ; THEN NO MMU IS PRESENT 

INC KTFLAG ; ELSE SAY WE FOUND 18 BIT SO FAR 
TST MMUSR3 s;NOW LOOK FOR 22 BIT MAPPING 
DELAY 1 ;GIVE NXM A CHANCE 

MOV #1,(PC)+ 

-WORD 0 

MOV L$DLY,(PC)+ 

. WORD 

DEC -6(PC) 

BNE 74 

DEC -22(PC) 

BNE .-20 

TST TRP4FG ;IF NXM OCCURRED 

BNE KTEXT ; THEN 18 BIT IS ALL WE'VE GOT 
INC KTFLAG ; ELSE SAY WE'VE GOT 22 BIT 
BR KTEXT ; AND BRANCH AROUND NEXT 


NOKT: CLR KTFLAG 


KTEXT: CLRVEC #VEC4 
MOV #VEC4 ,RO 


NO MMU - CLEAR FLAG 
sRESTORE VECTOR 


a ee 


KS 
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| 


036256 104436 TRAP CS$CVEC 
2265 036260 005037 002276 CLR TRP4FG sMORE HOUSEKEEPING 
soos 036264 000207 RTS PC 


2268 


ete. ee : 


L5 
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GLOBAL SUBROUTINES SECTION 
2273 
2274 
2275 Peer Titi iti iii itiiiititiiiiiiiitiiiiitititiiiiiitiriiiiiiriii rir | 
ee7e Peer i iii ti iititiiiiiiitiitiiiiiiiiiiiiiitiiiiiitiri rir irr rer 
; 
2278 sRSTVEC 
2279 3 THIS yg 3 INE IS ‘ux FROM VARIOUS PLACES 
22 $ IN THE PROGRAM TO SET THE yy" S INTERRUPT 
2281 3 VECTOR WITH THE ADDRESS OF A HANDLER ROUTINE 
2282 Fy WHICH WILL CATCH ILLEGAL DEVICE INTERRUPTS, 
2283 3 SPECIFICALLY “ILLINT”. INTERRUPT PRIORITY 
soos ; IS SET T0 0. 
2286 Peri iti it itiititiiiiitiiiiiititititiiiiti titi tii rrr rrr errr eT | 
ad Peer iii iti iiiiiiiiiiitiiiiiiiiiiiiitiiiiitiiititiiiiiiiiii iii ig) 
2292 036266 RSTVEC:: 
2293 036266 “SETVEC TKVECC(R4), #@ILLINT, #PRIOO 
036266 012746 000000 MOV #PRIOO, -(§P) 
036272 012746 036072 MOV @ILLINT, -(SP) 
036276 016446 000004 MOV TKVEC(R4), -(SP) 
036302 012746 000003 MOV #3,-(SP) 
036306 104437 TRAP C$SVEC 
2294 036310 062706 000010 ADD #10,SP 
2295 036314 000207 RTS PC 
2296 


ee TT | ——-—e oe 


rr 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


2301 


2320 
2324 036316 


MACRO YOS.02 Tue 


2325 036316 032764 000004 000014 
2326 036324 


0 001014 

2327 036326 
036326 012746 000000 
036332 012746 036062 
036336 016446 000004 
036342 012746 000003 
0 104437 


36346 
036350 062706 000010 


036356 012746 000340 
036362 012746 036062 
6446 000004 


366 
036372 012746 000003 
036400 062706 000010 
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FF SSSSSSSSSSSS SESS SSSSSSSSSSSSSSSESESSSSSSSSESSEESEEEEEESESEEEEEES 
5 FF SSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSESSESSSSESESSEESEESESESESESEE 


;VECTOR 


THIS ROUTINE IS CALLED FROM VARIOUS PLACES 
IN THE PROGRAM hy SET THE UUT'S VECTOR WITH 
THE ADDRESS OF A HANDLER ROUTI 
petal HAVE at ENABLED. THE 
TWO MODES OF OPERATION: WHEN BRFLAG IS CLEAR, 
PROCESSOR PRIORITY IS SET TO ZERO, ALLOWING 
DEVICE fe aes IF BRFLAG IS SET, PRIORITY 
IS SET 10 7. IF AN INTERRUPT OCCURS IN THIS 
CASE, AN ERROR IS RETURNED BY THE HANDLER 
ROUTINE, “INTRCV". 


FF SSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSESEESSSSSSEESSESEKESESSEEEEESEEEE 
FF SSSSSSSSSSSSSESSSSSSSHSSSSESSSSESEASESSSSSEESESEEESEEEEEESESEEEEE 


VECTOR: : 
BIT + LUNFLG(R4) +IF FLAG IS SET 
HEN SKIP TO SECOND HALF 
—— Tkveccna)  eINTRCV, ,@PRIOO’ ;ELSE LOW PRIORITY 


S$: 


EXTVEC: 


MOV @INTRCV, -(SP) 
MOV TKVEC(R4), -(SP) 
#3,-(SP) 


MOV 

TRAP csSveC 

BR EXTVEC 
TKVEC(R4 ), GINTRCV, #PRIO7 
@PRIO7, -(SP) 
MOV @INTRCV, -( SP) 
MOV TKVEC(R4), -( SP) 
MOV #3,-(SP) 

TRAP C$SVEC 

ADD #10,SP 

RTS PC 


;RETURN 
sHIGH PRIORITY 


SEQ 64 


LT — <ecnseTT sens smaeame 


GLOBAL ARE 


N5 
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M4 036432 000207 


002330 
002324 


002326 
002330 


FF SSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSESSSSSSSESESSSESESSSEESSSSSEEESESES 
§ fF SSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSESSSSSSSSSSESSESESESESESEEEES 


3 
;PDELAY 
nae ROUTINE IS a THROUGHOUT THE “ya TO PROVIDE 
ARTABL T OF DELAY TIME. THE DELAY WILL BE 
INSTRUCTION EXECUTION TIME tete é TWO VALUES MUST 
BE LOADED BY MAINLINE CODE PRIOR TO CALLING PDELAY: 
“INNER” AND “OUTER”. IF SUFFICIENT CALLS TO POELAY ai 


AL 70 1, 
“INNER” SHOULD BE_RE-LOADED BY MAINLINE CODE, PRIOR T 
CALL TO PDELAY WITHIN A TIMING LOOP. 


§ FE FSSSSSSSSSSSSSSSSSSSSSSSSSSESSSESESSSESSSSSSSSEESESESESESEEESESEESSS 
5 SSSSSSSSS SESS SESS SSS SESS SSS SSS SSSSESSSESSSSESESSESRESESE SESE SEEES 


PDELAY:: 
CL TOUT ;CLEAR TIMEOUT INDICATOR 
DEC INNER -. COUNT NOT EXHAUSTED 
BNE PDELAY THEN KEEP LOOPING 
DEC OUTER HIF MAJOR COUNT NOT 0 
BNE POL YEX ; THEN LEAVE WITH STATUS = OK 
TOUT ; ELSE SET TIMEOUT 


INC 
POLYEX: RTS PC 


SEQ 65 








GLOBAL SUBROUTINES SECTION 
| 2376 
i 2377 FY FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSEKEEESESESESESEEERESE 
se78 Fy FSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSESSSSSESSSESESEEESEESSSESEEEEEEE 
a 
| 2 ;STEP1 
2381 ; THIS SUBROUTINE IS RESPONSIBLE FOR PERFORMING 
2382 ; STEP 1 OF THE UQ-PORT INIT SEQUENCE. SPECIFI- 
2383 ; CALLY, IT WILL INITIALIZE THE UUT BY WRITING 
2384 : TO ITS IP REGISTER. AFTER A BRIEF DELAY, 1T 
2385 ; WILL D THE SA REGISTER TO INSURE THAT THE 
2386 ; STEP 1 BIT IS SET AND THE ERROR BIT IS CLEAR 
2387 ; IT WILL THEN WRITE THE FIRST LOCATION 
2388 ; STEP TABLE (SET UP BY MAINLINE CODE) TO THE 
2389 ; UUT'S SA REG. IF ALL STEPS COMPLETE SUCCESS- 
23 ; FULLY THE ROUTINE RETURNS “STEPST” CLEARED: 
2391 ; OTHERWISE “STEPST” IS RETURNED INDICATING A 
2392 ; FAILURE OCCURRED. 
2394 3 § REESE EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEREREEER 
ta 3 fF ESSERE EERE EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEDE 
2397 036434 STEP1:: 
2398 036434 005037 002320 CLR STEPST ;CLEAR THE STATUS INDICATOR 
2399 036440 012774 000000 000000 MOV #0, aTKIP(R4) ;INIT THE UUT 
2400 036446 012727 000001 MOV #1,(PC)+ 
036452 000000 .WORD 0 
036454 013727 002116 MOV L$DLY,(PC)+ 
036460 000000 . WORD 
036462 005367 177772 DEC -6(PC) 
036466 001375 BNE .-4 
036470 005367 177756 DEC -22(PC) 
vies 036474 001367 BNE .-20 
2402 036476 017464 000002 000012 MOV @TKSACR4), TKSASV(R4) ;GET THE SA REG CONTENTS 
2403 036504 022764 005700 000012 CMP #B.51!8.QB!B.01!8.0D!B.MP, TKSASV(R4) 
2405 sIF ALL THE RIGHT BITS AREN'T SET 
2406 036512 001004 BNE STP1ER THEN TAKE ERROR EXIT 
2407 036514 013774 002250 000002 MOV STPTBL aTKSACR4), ELSE WRITE HOST’S STEP 1 RESPONSE 
2408 036522 000402 BR STP ; AND LEAVE SHOWING SUCCESS 
2410 036524 005237 002320 STP1ER: INC STEPST ;SET ERROR INDICATOR 
e4ie 036530 000207 STP1EX: RTS PC 


ee a ee 


| B6é 
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! 
| 


TT SSS SSs-st-=-se-> 


——_ —- 


GLOBAL AREAS 
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036532 
036532 


34 
036536 


036542 
036544 
036550 
036554 
036556 


1 
03656U 
3 
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012702 
012703 
006303 


060000 
000024 


002306 
177777 








C6 
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FERRER EERE EEE EERE EE EEEEE REE EEE EEE EEE EERE EEEREEEEEEEEEEEE 
FERRER AEE ERE EEE ERASER ERE EEE EEEEEEEEEEEEEEEEEEEEEEEEEEEEEES 


BAKPAT 
THIS SUBROUTINE WILL FILL THE COMMUNICATION WITH AN 
ALL_1'S DATA PATTERN. THE LENGTH OF THE AREA IN USE 
BY THE CURRENT TEST IS CONTAINED IN “CMARLG”. 


FERRER EE SESE REE EEE EERE EE EE EEE EEEEEEEEEEEEEEEEEEEEE EEE EE 
5 EERE ER EEE EERE EEE EEE EERE EEE EEEEEEEEEEEEEEEEEEEEEEE REESE 


ee ee ee ee oe oe 


BAKPAT:: 
MOV #COMMBF ,R2 eto d  R OF COMM AREA 
MOV #20. ,R3 ;BUFFER LENGTH IN FRONT OF AREA 
ASL R3 sMULTIPLIED BY 2 
ADD CMARLG ,R3 ;ADD COMM AREA LENGTH USED 
1$: MOV #-1,(R2)+ ;WRITE E THE DATA 
DEC R3 :IF NOT DONE YET 
BNE 1$ ; THEN DO IT AGAIN 
RTS PC 


SEQ 67 


| GLOBAL AREAS 


466 036562 


2479 036620 
2480 036622 


2482 036624 
2483 036630 


036674 
036674 
036676 
036700 
036702 


036704 
036704 


2474 
2475 036606 
| 
' 


— a ee ee ee oe 


D6 
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012701 


012701 
012703 
020122 
001003 
005303 


001374 
000422 


162702 


SEQ 68 


§ FREESE EEE EERE EERE EREEEREREREREREREREREREEEEEEESE 
5 EERE EER ERE ERE EEA EEAREREREREEEE EEE ERAEEEEEEREEEEESRE 


CHKCOM: : 
177777 
060000 
000022 

1$: 
002306 

5$: 
177777 
000024 

10$: 
000002 15$: 
000010 002114 

20$: 

25$: 


002312 


* CHKCOM 


THIS ROUTINE IS CALLED BY TESTS DOING THE or wae 
IT IS USED TO VERIFY THAT THE PORT 


CK. 


CHE 
COMMUNICATIONS AREA CLEARED. 


HE 20 WORDS PRECEDING AND SUCCEEDING 


LEFT THE 
ADDITIONALLY, Ad CHECKS 


THE COMM 


T AREA 
TO MAKE SURE THE PORT DIDN'T GO OUTSIDE THE COMM AREA. 


£ SEERA EEA ERERERERE EEE EER EEEEEERERE EERE REAR RE EEREREEES 
§ EERE EAE EERE EERE EEE EERE EERE EEA EEE EEEEEE 


(R2)+ 


1 

CKCMEX 

#2,R2 
#8.,L$TEST 

20 
1,E€MSG14,PRIPAD 
CSERDF 

EMSG14 


PRIPAD 
25$ 


2,EMSG15,PRIVAD 
CSERDF 


2 
EMSG15 
PRIVAD 


LOGUNT 
LOGUNT , RO 


;TEST DATA 

sSTARTING ADDRESS 

sFIRST COUNT 

;IF NOT ALL 1'S 

;__ THEN -y REPORT ERROR 
;IF NOT ALL DONE 

; THEN GO" CHECK ANOTHER 


;TEST DATA FOR PRINTOUT 
;SET UP COUNTER FOR COMM AREA 


:IF_NOT 0 

;__ THEN GO REPORT ERROR 
IF NOT ALL D 

; THEN GO” CHECK ANOTHER 


;TEST DATA FOR PRINTOUT 

SET UP COUNTER FOR POST COMM AREA 
;IF NOT ALL 1'S 

;__ THEN GO REPORT ERROR 

;IF mi ALL DONE 

; THEN GO” CHECK ANOTHER 

; ELse RETURN 


sADJUST_ ADDRESS FOR PRINTOUT 
:IF m TEST 8 


; THEN DO ALTERNATE PRINTOUT 
‘"PURGE/POLL TEST FAILED" 


COMMON EXIT 
; "EXTENDED ADDRESS TEST FAILED” 


en we ee = ee = 


= 


ee. 


-_— i 





Se cnet same 


E6 


= 
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036710 104451 TRAP ——-C$D0DU 


9 
2500 036712 000207 CKCMEX: RTS PC 
2501 


a 


GLOBAL AREAS 


2528 
2529 036714 
2530 036714 
2531 036720 
2532 036724 
2533 


2545 036776 


2547 037004 
2548 037012 
549 


0 
2551 037014 
2552 037014 
2553 037020 
2554 037024 
2555 037030 
2556 037034 
2557 037042 
2558 037044 
2559 037046 
2560 037050 
2561 037054 
2562 037056 
2563 037064 
037064 


| 
| 
2506 
2507 
50 
037066 
| 
1 
{ 
i 


ee ee 


MACRO YO 
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012703 
012702 
005001 


010122 
012723 
062701 
022701 
001370 
010137 
001406 
012737 
012737 


012737 
000207 


010174 


017464 


104455 
000063 


172300 
172340 


077406 
000200 
002000 


172346 
007600 
000002 


177600 
000020 


000001 


000000 


000030 


003024 
000002 
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172356 
002274 


172356 
172516 


177572 


003024 


000012 


F6 


5 EERE EER ERE EERE RES EREEEREEREEER EERE EEE ERE ERE EEEERESE 
§ EERE EAE EKER EEE EE EEE EEEARERERERESEREREREREREREREREK EEE 


; INTMMU 
THIS SUBROUTINE IS CALLED FROM TEST 8 TO ee 

A ag MANAGEMENT REGISTERS. ALL PAR'S EXCEPT ONE 

ARE SET UP TO MAP Lt lag ores INTO THE pert 
32K OF PHYSICAL MEMORY. 7 IS SET UP ron P TO 
THE I/0 PAGE. THE PAR "REGISTER THAT CORRE SPONDS TO 
THE VIRTUAL ADDRESS OF THE COMMUNICATION AREA IS SET 
UP TO POINT TO THE SECOND 32K OF eid ag MEMORY . 


V 
READ/WRITE ACCESS ENABLED, AND THE 
FULL 8KBYTE PAGE IS ACCESSIBLE. 


5 EERE ERE EERE EEEREREREEEREREREEEEEEEEREEES 
5p EERE EERE EREREREREREREREREREEERERESESERERERESE 


INTMMU: : 
MOV #KPDRO,R3 ;START OF PDR ADDRESS RANGE 
MOV #KPARO,R2 ;START OF PAR ADDRESS RANGE 
CLR R1 ;STARTING RELOCATION VALUE 
1$: MOV 


R1,(R2)+ 
MOV #77406, (R3)+ 
ADD #200,R1 
CMP #2000,R1 
BNE 1$ 


MOV R1,KPAR3 


MOV #7600, KPAR7 
BIT #BIT1,KTFLAG 
BEQ 2$ 
MOV #177600, KPAR7 
MOV #MM220N , MMUSR3 
2s: MOV #MMON , MMUSRO 
RTS PC 
PRTINT: : 
MOV R1,9TKIPCR4) 
MOV #INTTBL ,R3 
MOV #S51,R1 
CLR INISTP 
LOOP: MOV #24. ,CNTHI 
CLR R2 
ILOOP: INC R2 
BNE es 
DEC CNTHI 
BNE 2$ 
MOV ATKSACR4), aoe 
ERRDF 51.,WRER1,WRINT 
TRAP CSERDF 
-WORD 51 


ar — VALUE 
< ye RELOCATION VALUE 
;IF_ NOT AT THE END 

; THEN DO ANOTHER ONE 


; ELSE SET THIS REG TO NEXT 32K 
;18 BIT 1/0 PAGE 
;IF 22-BIT BUS NOT AVAILABLE 
; THEN GO TURN MMU ON 
; ELSE SET 22 BIT I/0 PAGE 
; AND ENABLE 22 BIT MAPPING 


;TURN ON THE WHOLE THING 


sINITIALIZE THE DRIVE 
PUT THE TABLE we INTO R3 
;SET UP TO BEGIN AT STEP 1 
sCLEAR THE STEP T RACKER 

T UP_ THE TIME OUT COUNTER 
‘CLEAR Re 
;INCREMENT HI TIME OUT VALUE ? 
;IF NOT, BRANCH 
ELSE, DECREMENT LO TIMEOUT 
;BRANCH IF NO TIME OUT 
;SAVE_ THE SA FOR THE ERROR PRINTOUT 
;PRINT PORT INIT FAILURE 


GLOBAL AREAS 


GLOBAL SUBROUTINES SECTI 
037070 032347 


| 
' 
| 
037072 033176 
2564 037074 
| 
' 


017464 
104455 
000064 


032401 
033222 


2588 037234 000207 


2591 037236 104400 
2592 037240 003004 
000000 
000001 


2593 037242 
2594 037244 


‘> te eee 


002312 


000002 
100000 
000002 


002312 


002316 
000002 


003004 
002574 
100000 
000104 
003004 
003004 


003014 
003032 


000002 
000012 


023040 
023036 


2$: 


3$: 


5$: 


100$: 
;INIT DATA TABLE 
INTTBL: P 
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WRER1 
WRINTO 
LOGUNT 
LOGUNT ,RO 
C$DODU 


100$ 
ATKSACR4),R1 
ILOOP 

+ atte »OTKSACR4) 
ATKSACR4), TKSASVC(R4) 
52. ,WRER2,WRPRTE 
CSERDF 

WRER2 

WRPRTE 

LOGUNT 

LOGUNT ,RO 

75 a 

INISTP 

pel aiamannare 


LOOP 
#RSPRNG ,R2 


—— »R3 
#RSPRNG ,RSPSAV 


#CMDRNG , CMDSAV 
ad 


104400 
_— 


“WORD GO 


;DROP THE UNIT 


;EXIT ROUTINE 

;TEST FOR STEP BIT FROM DRIVE 
;LOOP UNTIL SOMETHING SETS 
;CHECK FOR ERROR 

;NO ERROR, KEEP GOING 

;SAVE THE SA CONTENTS 

;PRINT ERROR 


;DROP THE UNIT 


;EXIT ROUTINE * 
INCREMENT THE STEP TRACKER 


;WRITE WORD FROM TABLE TO CONTROLLER 


;SHIFT TO NEXT STEP 
;IF NOT AT LAST STEP 


SEQ 71 


LOOP 
;PUT THE RESPONSE DESCRIPTOR ADD IN R2 
;PUT THE RESPONSE a ADDRESS Pron R3 


;PUT THE BUFF ADD IN THE DESCRIPT 


;SET THE DESCRIPTOR ‘0 Font "aterm 


;STEP TO THE NEXT BUFFE 
:NO, 


;SET UP TO USE FIRST RESPONSE BUFFER 
;SET UP TO USE FIRST COMMAND BUFFER 


;SET THE COMMAND REFERENCE # TO 0 
RETURN 


;ARE WE AT THE END OF THE BUFFER ? 
KEEP GOING 


_ 


enemies 


be 


OBAL AREAS 
GLOBAL SUBROUTINES SECTION 


2596 037246 
46 


2633 037470 
2634 037476 


ee ee ee. 
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033256 
013700 


104455 
000072 
032546 
033256 


013700 


033256 
013700 


126327 
001341 


003032 
037604 
000001 
037746 
000001 
024035 
000012 
000010 
002406 
000003 
024214 
000043 
024265 
000103 
024265 


002312 


002312 


002312 


002456 
000014 


000014 


000014 


000014 


000012 


000012 


000012 


000113 





CLSODRV: : 
5$: I 


7$: 


11$: 


12$: 


15$: 


CMDREF 
PC, PRTDRV 
#DRPFLG, LUNFLGCRA) 
100$ 
PC, CDRECV 
#DRPFLG, LUNFLG(R4) 
100$ 
#WR2 
prs T8cR3) 
15$ 
#DUPFLG,LUNFLG(R4) 
#ONLINE ,R5 
10$ 
#3,P.STSCR3) 
#WR7 ,R2 
10$ 
#45,P.STS(R3) 
#WRB ,R2 
10$ 
#103,P.STS(R3) 
11$ 
#WRB ,R2 
57. , WRER3, WRCMDE 
CSERDF 
WRER3 
WRCMDE 
LOGUNT 
LOGUNT , RO 
csODU 


00$ 
58. ,WRER7,WRCMDE 
— 


10 
59. ,WRER8&, WRCMDE 
CSERDF 


59 

WRER8S 

WRCMDE 

LOGUNT 

LOGUNT ,RO 
C$DODU 

100$ 

#GDUST,RS5 
P.EXT1(R3), #113 
10$ 


SEQ 72 


sADD 1 TO THE COMMAND REFERENCE NUMBER 
;GO SEND THE COMMAND 
iTS THE DRIVE AVAILABLE 


: I BLE 
im GETS ERROR MESSAGE ADDRESS 
“NORMAL “? 


OR 
A_UNIT UNKNOWN ERROR ? 

NO, CONTINUE 
sR2 GETS ERROR MESSAGE ADDRESS 
;PRINT ERROR MESSAGE 
sWAS IT A_NO MEDIA MOUNTED ERROR ? 
;NO, CONTINUE 
;R2'GETS ERROR MESSAGE ADDRESS 

s;PRINT ERROR MESSAGE 

;WAS IT A UNIT INOPERATIVE ERROR ? 
;NO, MUST BE INVALID STATUS 
sR2 GETS ERROR MESSAGE ADDRESS 
;GET READY TO PRINT FAILURE 


;DROP THE UNIT 

;GET OUT ON ERROR 

;GET READY TO PRINT FAILURE 
;DROP THE UNIT 

;GET OUT ON ERROR 

;GET READY TO PRINT FAILURE 


DROP THE UNIT 


;GET OUT ON ERROR 

sWAS IT A GET DUST STATUS COMMAND ? 
NO, CONTINUE 

:1ST BYTE OF PROGRAM EXTENSION = "K” ? 
NO, ERROR 


————— 4 


ee eee 


| 
| GLOBAL AREAS 
| GLOBAL SUBROUTI 


2635 037500 
2636 037506 
2637 037510 
2638 037516 


2639 037520 
2640 037526 
264 7530 


2678 037744 


» CE  — —— 
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126327 


013765 


100013 


032450 
033222 


013700 
104451 


000207 


NES SECTION 


000015 
000016 
000017 
000020 
000022 
000024 


002524 


040200 
002272 


023036 
003032 


000002 
000010 
000002 
000001 
100000 
000000 
000002 


000002 


002312 
000004 
003024 


003014 
023036 


000065 
000060 
000007 
600000 
000000 
000012 


000000 
177776 
000014 
177777 
177777 


000002 


000012 


20$: 


30$: 
100$: 


PRTDRV: : 


10$: 


15$: 
100$: 


CMPB 


P.EXT2(R3), #65 
P-EXT3(R3), #60 
DUSTFL(R3), #7 
P.INDICR3),#0. 
P.IND2(R3), #0 
TIMOUT(R3), #12 
10$ 

30$ 

#RCVDAT,RS 

30$ 

PC,L2DATA 

ITRCNT 

S$ 

PC 

CMDSAV,R1 
CMDREF .P.CRF(RS) 
#2, CRD(R5) 
@DUPFLG, , LUNFLG(R4) 
#2. CONID(RS) 

#1, CONTDCRS) 
#OWN, HIADDR(R1) 
ATKIP(R4) 
ATKSACR4) 

10$ 

ATKSACR4), TKSASV(R4) 
53. ,WRER4.WRPRTE 
CSERDF 

53 

WRER4 

WRPRTE 

LOGUNT 
LOGUNT , RO 
C$DODU 

100$ 

#RNGSTP,R1 
#DSCEND.R1 

15$ 


#CMDRNG , R1 
~ ened 


SO a 


Wy BYTE OF PROGRAM EXTENSION = “5” ? 
;3RD BYTE OF PROGRAM EXTENSION = “0” ? 
3;NO, ERROR 
:FLAGS anon ? 
sist a OF PROGRESS INDICATOR = 0 ? 
;2ND WORD OF PROGRESS INDICATOR = 0 ? 
NO, ERR 
; TIMEOUT VALUE = 12 ? 
:NO, ERROR 
;NO ERRORS, RETURN 
;WAS IT A RECEIVE DATA COMMAND? 

INTINUE 
YES, GO READ DIAGL2 s 10 oo STATUS 


;SUBTRACT 1 colts TIMES TO 
;G0 SEND IT AGAI 
TURN 


;SET UP COMMAND RING POINTER 

;PUT COMMAND REFERENCE # INTO PACKET 
;PUT Mas | CREDIT LIMIT INTO THE PACKET 
;IS IT A DUP COMMAND? 

sNO, CONNECTION TYPE = 1 

:YES CONNECTION TYPE = 2 


;PUT THE CONNECTION TYPE INTO THE PACKET 

sPUT THE PACKET ADDRESS INTO THE DESCRIPTOR 

sSET THE OWNERSHIP BIT OF THE DESCRIPTOR 
sREAD THE IP REGISTER 

;READ THE SA REGISTER 

;BRANCH IF NO ERRORS 

sSAVE_THE SA FOR THE ERROR PRINTOUT 

;PRINT PORT DETECTED ERROR 


;DROP THE UNIT 


sGET OUT 

;ADJUST RESPONCE POINTER FOR NEXT TIME 
sARE WE AT THE END ? 
;NO, GET OUT 

;SET R1 TO TOP BUFFER 

2 COMMAND RING LOCATION 


os 


| GLOBAL AREAS 
| GLOBAL SUBROUTINES SECTION 


2680 


037746 
7746 


ee —— ——— e 


JO 
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1 
000207 


013701 


033466 


013700 
104451 


012737 


104455 
000067 
030465 
033222 


013700 
104451 
000404 


040054 
000001 


000000 
100000 
000004 
003014 


003004 
023040 
032640 


002312 


023040 
000225 


003024 


002312 
000002 
100000 
032640 


002312 


CDRECV: : 
1$: 


000014 


000000 
000002 


15$: 
002310 10$: 


100$: 


PDRECV: : 


003024 1$: 
5$: 


000012 10%: 
000012 


002310 


PC,PORECV 
#DRPFLG,LUNFLG(R4 ) 
100$ 

(R1),R3 

oa ee ae ee 
#OWN , HIADDR(R1) 
#RNGSTP ,R1 
ee 


1 
#RSPRNG,R1 
R1,RSPSAV 


100$ 
aCTRL, FRUIS 
56. ,WRERS , WRSEQE 
Se 


RSPSAV,R1 
acai 


R2 

10$ 

CNTHI 

10$ 

54. ,WRER6,WRTOE 
CSERDF 


#BIT15, TKSASV(R4) 


20$ 

#CTRL,FRUIS 

55. ,EMSG9, WRPRTE 
CSERDF 


55 

EMSG9 
WRPRTE 
LOGUNT 
LOGUNT ,RO 
C$DODU 
100$ 


1 
ATKSACR4), TKSASVCR4 ) 


SEQ 74 


;CALL PORT DRIVER RECEIVE 

:I1S THE DRIVE AVAILABLE 

;GET OUT IF NOT AVAILABLE 

;SET UP RESPONCE BUFFER POINT 

;I1S_THIS THE COMMAND THAT IS EXPECTED ? 

;GET OUT IF WRONG RESPONCE 

;GIVE THE CONTROLLER THE RING BACK 

:ADJUST RESPONCE POINTER FOR NEXT TIME 
ARE aw END ? 


TO TOP BUFFER 
; SAVE THE POINTER FOR NEXT TIME 


s;PRINT CONTROLLER ERROR 
;PRINT COMMAND OUT OF SEQUENCE ERROR 


;DROP THE UNIT 
;RETURN 
;PUT THE RESPONSE RING SAVE IN R1 
ree ra TIME OUT COUNTER 
sINCREMENT HI TIME OUT VALUE ? 
;IF NOT, BRANCH 
:ELSE, INCREMENT HI TIMEOUT 

KEEP GOING ,NO TIME OUT YET 
SPRINT COMMAND TIMEOUT MESSAGE 
;GO DROP THE UNIT 


;GET OUT ON ERROR 
;GET SA CONTENTS 
; CHECK 
FRU 
;PRINT SA CONTENTS IN ERROR MESSAGE 


;GO DROP THE UNIT 


;GET OUT ON ERROR 


| 
| 


GLOBAL AREAS 


2719 040166 
2720 040174 
eret 040176 


a ee eee 
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' GLOBAL SUBROUTINES SECTION 


100000 000002 20%: 


032761 
001335 
000207 


010146 


022703 
001006 
012702 
012737 
000454 
022703 
001003 
012702 
000446 
022703 
001003 
012702 
000440 


022703 


022703 
001003 
012702 
000424 


022703 
001003 


060000 
000001 


000002 


000002 
177740 
000037 


000002 
032640 
000037 


000001 


023312 
032655 


000002 
023322 


000012 
023332 


000024 
023342 


000025 
023352 


000026 


000000 


002310 


002310 


100$: 


L2DATA:: 


10$: 


15$: 


208: 


25$: 


BIT 
BNE 
RTS 


ne 


PC 


L>STACRL), 0 
GOABO 
L2STACR1),R3 
#177740,R3 


MSCPE 
L2STACR1),R3 
#CTRL,FRUIS 
#000037 ,R3 


#1. ,R3 

5$ 

#DCERR ,R2 
#DRVE ,FRUIS 

40$ 

#2. ,R3 

O$ 
#CNTERR ,R2 
40$ 

#10. ,R3 
15$ 
#INVSTA,R2 
40$ 

#20. ,R3 
20$ 
#BPNERR ,R2 
40$ 

#21. ,R3 
25$ 
#RSPADD ,R2 
40$ 


#22. ,R3 
30$ 


;IS THE SLOT SET TO US ? 
sKEEP GOING TILL TIMEOUT OR SUCCESS 
RETURN 


;SAVE REGISTERS 


;GET START pant OF RECEIVE DATA 
;ANY NEW INFORMATION ? 
3 RETURN 


;YES, LOCAL ont Pn FINISHED ? 


3 S SET 

;TMSCP COMMAND ERROR OTHERWISE 

;GET LEVEL 2 PROGRAM STATUS 

ne SET FAILING FRU TO CONTROLLER 
MASK OFF UNUSED BITS OF STATUS 


sIS IT A DATA COMPARE ERROR ? 
;NO_TRY AGAIN 

;SET UP TO PRINT ERROR 

;SET FRU nae TO DRIVE 

;G0 PRINT 


sIS IT A CONTROLLER ERROR ? 
sNO_ TRY AGAIN 

SET UP TO PRINT ERROR 

;G0 PRINT IT 


:IS a a INVAILID STATUS ERROR ? 
:NO_TRY AGAIN 

;SET UP TO PRINT ERROR 

;G0 PRINT IT 


Sth 8 A en NUMBER ERROR ? 
;SET "OP TO PRINT ERROR 
;GO PRINT IT 


sIS IT A RESPONSE ADDRESS ERROR ? 
s;NO_ TRY AGAIN 

;SET UP TO PRINT ERROR 

GO PRINT IT 


sIS IT A HOST BUFFER ADDRESS ERROR ? 
3NO TRY AGAIN 


ee | 


GLOBAL AREAS 
2776 040406 
2777 040412 
2778 
2779 040414 
2780 040420 
2781 040422 
gree 040426 
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GLOBAL SUBROUTINES SECTION 


012702 
000416 


022703 
001003 
012702 
000410 
022703 
001003 
012702 
000402 
012702 
012237 
012237 


012237 
012237 


023362 


000027 
023372 


000030 
023402 


023332 
023052 


000012 
000014 
032655 


000010 
023062 


023052 
023054 
023056 
023060 


002310 


000020 000014 


MOV #HBF ADD ,R2 
40$ 


BR 

30$: CMP #23. ,R3 
BNE 
MOV #UNERLG ,R2 
BR 40$ 

35$: CMP #24. ,R3 
BNE $ 
MOV @RSPTO,R2 
BR 40$ 

36$: MOV #INVSTA,R2 

40$: MOV (R2)+,ERRTYP 


MOV (R2)+, ERRNBR 
MOV (R2)+, ERRMSG 


Vv (R2)+, ERRBLK 
ERROR 
TRAP CSERROR 
B GOABO 
MSCPER: CMP #12,R3 
BEQ $ 
CMP #14 ,R3 
BEQ 10$ 
S$: MOV #DRVE ,FRUIS 
10$: DEC R3 
MUL #10,R3 
MOV #L2ETBL ,R2 
ADD R3,R 


MOV (R2)+,ERRTYP 
MOV (R2)+,ERRNBR 
MOV (R2)+, ERRMSG 
MOV (R2)+, ERRBLK 


TRAP CSERROR 

GOABO: BIS #ABTFLG,LUNFLG(R4) 
DORPT 
TRAP C$DRPT 

EXIT: — (SP)+,R3 


ENDMOD 
- TITLE MISCELLANEOUS SECTIONS 
-SBTTL REPORT CODING SECTION 


BGNMOD 


_ -— —— ee 


SEQ 76 


:SET UP TO PRINT ERROR 
GO PRINT IT 


sIS IT A UNKNOWN ERROR LOG RECIEVED ? 
;NO_TRY AGAIN 

SET UP TO PRINT ERROR 

GO PRINT IT 


ND tk ia A a TIME OUT ERROR ? 


;SET P TO “PRINT ERROR 
;G0 PRINT IT 


sSET UP TO PRINT ERROR 


;LOAD ERROR TYPE 
sLOAD ERROR NUMBER 

sLOAD ERROR MESSAGE ADDRESS 
LOAD ERROR SUBROUTINE ADDRESS 
:;CALL “ERROR” MACRO 


a aT MICRODIAGNOSTIC 


YES, LEAVE FAILING FRU AS CONTRLLOER 
iNO, SET FAILING FRU TO DRIV VE 


:R3_IS OFFSET INTO TMSCP ERROR TABLE 
sGET TMSCP ERROR TABLE START ADDRESS 


#Re POINTS TO ad IN TMSCP ERROR TABLE. 


LOAD ERROR TYP 
SLOAD ERROR NUMBER 
sLOAD ERROR MESSAGE ADDRESS 
sLOAD ERROR SUBROUTINE ADDRESS 
;CALL “ERROR” MACRO 


sSET ABORT FLAG 
sDUMP NORMAL COMPLETION STATISTICS 


sRESTORE REGISTERS 


Ee <7 -—~o-—— 


MISCELLANEOUS SECTIONS MACRO Y0S.02 
INITIALIZE SECTION 


012700 
104447 


0602 103421 
012700 
104447 
103415 
012700 
104447 
103411 
012700 
104447 
103422 
012700 
104447 
103465 
000423 


012737 


012737 
005237 


000040 


000037 


000034 


000035 


000036 


036102 


002270 
177777 


002312 


002270 


002120 


002312 
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- SBTTL 


INITIALIZE SECTION 


i ; THE INITIALIZE SECTION yr tl ae THE CODING THAT IS PERFORMED 
; AT THE BEGINNING OF EACH PASS. 


L$INIT:: 


START: 


NUPASS: 


NEXT: 


BGNINIT 


— HEF START 


#EF .START,RO 
TRAP CSREFG 
BCOMPLETE START 
BCS START 


READEF #EF .RESTART 
MOV #EF .RESTART,RO 
TRAP R 


CSRE 
BCOMPLETE START 
BCS START 


— #EF .PWR 


TRAP CS$REF 
BCOMPLETE 
BCS START 


READEF #EF .NEW 
MOV #EF .NEW,RO 
TRAP 


CSREFG 
BCOMPLETE NUPASS 
BCS NUPASS 


READEF #€F .CONTINUE 
MOV #EF . CONTINUE ,RO 
TRAP CSREFG 


BCOMPLETE END 
BCS END 

BR NEXT 

MOV #0 , PASCNT 
CLR KTFLA a 

MOV #LUNBLK,R4 
CMP #1400, L $HIME 
BHIS NUPASS 

JSR PC,KTTEST 
BRESET 

TRAP CS$RESET 

INC PASCNT 

MOV #-1,LOGUNT 
INC LOGUNT 


;IF THIS IS A FRESH START 

; THEN GO TO START 

;IF THIS IS A RESTART 

; THEN GO TO START 

;IF POWER-FAIL OCCURRED 

; THEN START FROM THE BEGINNING 
;IF THIS IS A NEW PASS 
; THEN SKIP START |» CODE 
;IF THIS IS A CONTINUE 

; THEN SKIP ALL INIT CODE 


;JUST HERE FOR NEXT UUT 


sINITIALIZE PASS COUNT 

sIN CASE WE'RE STARTED > THAN Once 
;R4 WILL ALWAYS POINT TO LUNBLK 
;IF_<= 28KWORDS al MEMORY PRESENT 
; THEN SKIP NEXT 

; ELSE SEE IF MMU IS PRESENT 


s;CLEAR THE WORLD 


sUPDATE THE PASS COUN 
INITIALIZE LOGICAL UNIT COUNT 


sPOINT TO NEXT UUT 


meee ee ae 


MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 


2902 040720 
2903 040726 
2904 


023737 
001433 


104411 


— 2 ee ee ee 
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002312 002012 


002312 


000002 


116 045 


END: 


IMSG: 


L10011; 


CMP LOGUNT ,L $UNIT 

BEQ END 

GPHARD LOGUNT,RO 
LOGUNT ,RO 

TRAP C$GPHRD 

BNCOMPLETE NEXT 

BCC NEXT 

MOV (RO), TKIPCR4) 

MOV CRO}. bos > Nae 

ADD #2, TKSACR4 ) 

MOV (RO)+, TKVECCR4) 

MOV (RO) ,MSCPUNCR4 ) 

JSR PC, EC 

PRINTF eTHSG, LOGUNT 

MOV LOGUNT , -( SP) 

MOV SINS, =(SP) 

MOV #2,-(SP) 

MOV P,R 

TRAP CSPNTF 

ADD »SP 

EXIT INIT 

TRAP CSEXIT 

-WORD 1L10011-. 

ASCIZ ?#NSATESTING UNIT #D18N? 

EVEN 

ENDINIT 

TRAP CS$INIT 


sIF_ WE'VE PASSED MAXIMUM UUT’S 
; THEN LEAVE INIT 


;GET P-TABLE FOR THIS UNIT 
;TRY AGAIN 


16 IP REG wot IN a 
AND ANOTHER COPY IN LUNBLK 
;MAKE IT THE SA REG ADDRESS 


SEQ 78 


IN LUNBLK 
;SET UUT VECTOR A. ILLEGAL INTRPTS. 


;"TESTING UNIT 


e 


2956 041064 


2960 041070 
041070 
041074 

2961 

2962 ot y Lh 


2978 041102 
041102 
041102 


032764 0000006 002212 


001400 
005064 


016400 
104436 


104432 
000002 


104412 


000014 


000004 


B7 
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CODING SECTION sei _ 


-SBTTL CLEANUP CODING SECTION 


3;¢? 

; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
; AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 

2 


BGNCLN 

LSCLEAN: : 
BIT @TOFLAG,LUNBLK(R4) ;IF_ NOT HERE FROM TEST 9 
BEQ ENDCLE 3; THEN SKIP THE REST 


sEVENTUALLY MORE CODE WILL BE PLACED HERE TO GUARANTEE THAT AN ABORT 
s;COMMAND IS ISSUED TO THE UUT TO STOP EXECUTION OF THE LOCAL PROGRAM. 


ENDCLE: CLR LUNFLGC(R4) ;CLEAR OUT THE LUN FLAGS 


s;NOTE: THIS LINE OF CODE MAY —— TO BE REMOVED TO HANDLE tC FOLLOWED 
:BY A nor Figg te CORRECTL 


TKVEC(R4) ;PUT “TRAP CATCHER” INTO VECTOR 
TKVEC(R4) ,RO 

TRAP CS$CVEC 

EXIT CLN 

TRAP CSEXIT 

-WORD L10012-. 

EVEN 

ENDCLN 

L1001le: 


TRAP CSCLEAN 


SEQ 79 


2994 

2995 041104 

2996 

2997 041112 
041112 


3013 041116 
041116 


| 
' 
| 
| 
2982 
2983 
2984 
2985 
2986 
2987 041104 
041104 
2988 
041116 
! 


012764 


000167 
000000 


104453 
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OP UNIT SECTION 


000001 000014 


C7 


.SBTTL OROP UNIT SECTION 


THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
; TO NO LONGER BE TESTED. 


BGNDU 
L$DU:: 
MOV #DRPFLG,LUNFLG(R4) ;LETS PROGRAM KNOW IT’S DEAD 
EXIT DU 
-WORD J$JMP 
-WORD L10013-2-. 
EVEN 
ENDDU 
L10013: 
TRAP C$DU 


ADD 


| 
3017 


041124 
041124 


044 041126 


000167 
000000 


104452 





-SBTTL ADD UNIT SECTION 


3*+¢ 
; THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
; JO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 


; TO THE TEST CYCLE. 


L$AU:: 


E 
L10014: 
1 


BGNAU 


AU 
J$JMP 
L10014-2-. 


C$AU 


D7 
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UNIT SECTION 


ee ee 


eee ne eee 
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ADD UNIT SECTION " - 
3053 
3054 LTITLE HARDWARE TEST 
3058 000000 HELP=0 ; CONTROL LISTING OF HELP INFORMATION 
3059 ; HELP=0 NO LIST 
3060 ; HELP=1 LIST 
3062 ;ONEFILE= ; CONTROL USE OF SOURCE FILES 
3063 ; ONEFILE IS NOT DEFINED ASSEMBLE EACH SOURCE FILE SEPARATELY 
3064 ; ONEFILE*ANYTHING ASSEMBLE ALL SOURCE FILES TOGETHER 
3069 .SBTTL TEST 1: EXISTENCE VERIFICATION TEST 
3084 
3085 3 5 ERE EEERERAEEREAEKEREREREEEAEEEEEEEEEEEEEEEEEEEEESEEEEREEERE 
sose 3 § EERE EEEEREEEEEREREEEREREEEREREEEEEEREAREREEEREREEESEEEEEEERE 
3088 ;TEST 1 - EXISTENCE VERIFICATION TEST 
3089 THIS TEST VERIFIES THE EXISTENCE OF THE UUT BY 
3090 ATTEMPTING TO READ FIRST THE IP AND THEN THE SA 
3091 REGISTERS OF THE TKSO. VECTOR 4 IS SET UP WITH 
3092 A TRAP HANDLING ROUTINE IN CASE OF A NON-EXISTENT 
3093 : MEMORY TIMEOUT. 
3095 5 ERE EREER REE EERE SEERA EERE EERER EERE EERE EEE EERE EERE EE EEE EERE 
pose 3 5 EREREEEEREREREEEEEREREREERERREREREEEEEEREREREEEEREEEEEEEEEKEREEK 
3101 041126 BGNTST 
041126 Th:: 
3102 041126 000240 NOP 
3103 041130 012737 000001 002272 MOV —« #1, ITRCNT ;SET UP FOR ONE TEST ITERATION 
1136 005737 002270 TST —~ PASCNT ‘IF PASS 0 
3105 041142 001404 BEQ. sd i THEN START TEST 
3 1144 012737 000010 002272 MOV —« #10, ITRCNT ; ELSE DO MULTIPLE ITERATIONS 
3107 041152 000240 NOP 
3108 041154 BGNSUB 
041154 11.1: 
041154 104402 TRAP C$BSUB 
3109 041156 005037 002276 1$: CLR —sCTRP4FG ;CLEAR NXM TRAP FLAG 
3111 041162 SETVEC #VEC4,#TRAP4,@PRIO7 —«; SET UP VECTOR 4 FOR NXM TRAP 
041162 012746 000340 MOV #PRIO?.-(SP) 
041166 012746 036054 MOV —s @TRAP4" (SP) 
041172 012746 000004 MOVs @VEC4, "CSP 
041176 012746 000003 MOVs @3,-(8 
041202 104437 TRAP CS 
304 062706 000010 ADD‘ #10,SP 
3112 041210 000240 NOP 
3113 041212 005074 000000 CLR —aTKIPCR4) ;WRITE THE IP REGISTER 
3114 041216 000240 NOP 
3115 041220 DELAY ;MAKE SURE TIMEOUT CAN OCCUR 
041220 012727 000001 HOV #1,(PC). 
041226 013727 002116 HOV. L$DLY, CPC)» 
041232 000000 “WORD 0 
041234 005367 177772 bec -6¢C) 
041240 001375 BNE 
041242 005367 177756 DEG = 122(PC) 


| HARDWARE TEST MACRO YOS.02 Tuesday 16-Apr-85 08:44 
| TEST 1: EXISTENCE VERIFICATION TEST 


s116 041246 001367 BNE 
3117 041250 005737 002276 TST 
3118 041254 001416 BEQ 
3119 041256 000240 NOP 
3120 041260 012737 032640 002310 MOV 
3121 041266 ERRDF 

041266 104455 TRAP 

041270 000005 . WORD 

041272 030334 - WORD 

041274 033146 . WORD 
3122 041276 CKLOOP 

1276 104406 TRAP 
3123 041300 DODU 
1300 013700 002312 MOV 
1304 104451 TRAP 
3124 041306 ESCAPE 
1306 104410 RAP 

041310 000002 . WORD 
3125 
3126 041312 S$: ENDSUB 

1312 L10016: 

1312 104403 TRAP 
3127 041314 000240 OP 
3128 041316 CLRVEC 

041316 012700 000004 OV 

041322 104436 TRAP 
3129 041324 032764 000001 000014 BIT 
3130 041332 001402 Q 
3131 041334 ESCAPE 

1334 104410 TRAP 

041336 000264 - WORD 
3132 
3133 041340 BGNSUB 

041340 T1.2: 

041340 104402 TRAP 
sia 041342 005037 002276 10$: CLR 
3136 041346 SETVEC 

1346 012746 000340 MOV 

041352 012746 036054 MOV 

041356 012746 000004 MOV 

041362 012746 000003 MOV 

041366 104437 TRAP 

041370 062706 000010 ADD 
3137 041374 000240 NOP 
3138 041376 005774 000002 TST 
3139 041402 000240 NOP 
3140 041404 DELAY 

41404 012727 000031 MOV 

041410 000000 . WORD 

041412 013727 002116 MOV 

041416 000000 . WORD 

0414 005367 177772 DEC 

041424 001375 BNE 

041426 005367 177756 DEC 

041432 001367 BNE 


me eee 


F7 
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. -20 

TRP4FG 

S$ 

#CTRL ,FRUIS 
5,EMSGS,PRIERR 
— 
EMSGS 
PRIERR 
C$CLP1 
LOGUNT 
LOGUNT , RO 
C$D0DU 


SUB 
CSESCAPE 
L10016-. 


CSESUB 

#VEC4 

#VEC4 ,RO 

C$CVEC 
#DRPFLG,LUNFLG(R4 ) 
T1.2 

TST 

C$ESCAP 

L10015-. 


C$BSUB 
TRP4FG 


#VEC4, #TRAP4 , #PRIO7 
#PRIO7,-(SP) 


#10,SP 
ATKSACR4) 


25. 
#25. ,(PC)+ 
LSDLY,(PC)« 
-6(PC) 
-22(PC) 
.-20 


;IF NO TRAP OCCURRED 
; THEN CONTINUE TEST 


; IDENTIFY FAILING FRU FOR PRINTOUT 
;"NXM ON READ TKIP” 


;LOOP ON ERROR? 
;DROP UNIT 


;CAN'T CONTINUE 


sRESTORE VECTOR 4 


;IF UNIT WAS NOT DROPPED 
; THEN CONTINUE TESTING 
; ELSE LEAVE TEST 


;CLEAR NXM ERROR FLAG 
;SET VECTOR 4 FOR NXM TRAPS 


sREAD THE SA REGISTER 
;WAIT TO ALLOW NXM TRAP 


—— el ee 


| HARDWARE TEST MACRO Y0S.02 Tuesday 16-Apr-85 08:44 
TEST 1: EXISTENCE VERIFICATION TEST 


| 
i 3141 

3142 041434 005737 002276 TST 

3143 041440 001416 BEQ 

3144 041442 000240 NOP 

3145 041444 012737 032640 002310 MOV 

3146 041452 ERRDF 
041452 104455 
041454 000007 . WORD 
041456 030406 . WORD 
041460 033146 . WORD 

3147 041462 CKLOOP 
041462 104406 

3148 041464 DoDU 
041464 013700 002312 MOV 
041470 104451 

3149 041472 ESCAPE 
041472 104410 TRAP 

cia 041474 000062 . WORD 

3151 041476 017464 000002 000012 15%: MOV 

3152 041504 032764 004000 000012 BIT 

3153 041512 001021 BNE 

1514 000240 NOP 

3155 041516 012737 004000 002314 MOV 

3156 041524 012737 032640 002310 

3157 041532 ERRDF 
041532 104455 TRAP 
041534 000010 WORD 
041536 030427 . WORD 
041540 032764 “ORD 

3158 041542 CKLOOP 
041542 104406 TRA 

3159 041544 DODU 
041544 013700 002312 MOV 
041550 104451 TRAP 

3160 041552 ESCAPE 
041552 104410 
041554 000002 . WORD 

3161 041556 16$: ENDSUB 
041556 L10017: 

ae 041556 104403 TRAP 

3163 041560 005037 002314 20$: 

3164 041564 CLRVEC 
041564 012700 000004 MOV 
041570 104436 TRAP 

3165 041572 032764 000001 000014 BIT 

3166 041600 001006 BNE 

3167 041602 005337 002272 DEC 

3168 041606 000240 NOP 

3169 041610 001402 BEQ 

3170 041612 000137 041154 JUMP 

3172 041616 25: EXIT 
041616 104432 TRAP 
041620 000002 . WORD 

3173 

| 
1 
l 


ee 


G/ 
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TRP4FG 
15$ 


#CTRL ,FRUIS 
7,EMSG7,PRIERR 
CSERDF 


a 
EMSG7 
PRIERR 


CS$CLP1 
LOGUNT 
LOGUNT ,RO 
C$DODU 
SUB 


CSESCAPE 
L10017-. 


ATKSACR4), TKSASV(R4 ) 


#B.S1, TKSASV(R4) 
16$ 


#B .S1,SAEXP 
#CTRL,FRUIS 

8. ,EMSG8,PRISA 
CSERDF 


8 
EMSG8 
PRISA 
C$CLP1 


SUB 
CSESCAPE 
L10017-. 


CVEC 
#DRPFLG,LUNFLG(R4 ) 
25$ 
ITRCNT 
25$ 
T1.1 


TST 
CSEXIT 
L10015-. 


SEQ 84 


;IF NXM DID NOT OCCUR 
; THEN CONTINUE TEST 


; IDENTIFY FAILING FRU FOR PRINTOUT 
;"NXM ON FIRST READ OF SA” 


;LOOP ON ERROR? 
;DROP UNIT IF NOT 


;LEAVE TEST 


;GET A COPY OF SA IN MEMORY 
;IF STEP 1 BIT IS SET 
; THEN TEST 1 IS COMPLETE 


;LOAD “EXPECTED FOR PRINTOUT 


; IDENTIFY FAILING FRU FOR PRINTOUT 
;"SA REG IN ERROR ON FIRST READ” 


;LOOP ON ERROR? 
;DROP UNIT IF NOT 


;LEAVE TEST 


;CLEAR ERROR INDICATOR 
sRESTORE VECTOR 4 


;IF UNIT DROPPED 
;__ THEN LEAVE NOW 
;IF ITERATIONS EQUAL 0 


; THEN LEAVE TEST 
ELSE GO BACK FOR MORE 


ee ees ey 


mm 
* 
‘ 








H7 
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TEST 1: EXISTENCE VERIFICATION TEST 


3174 

3175 -EVEN 

3176 

3177 041622 ENDTST 
041622 L10015: 


041622 104401 TRAP CSETST 


—_—— 


| HARDWARE TEST 


A ll TT 


TEST 2: SA REGISTER WRAP TEST 


2 
3203 041624 032764 000001 
001423 


104421 

041636 010037 002334 
3206 041642 032737 001000 
3207 041650 001412 


041652 013746 002114 
041656 012746 047502 
041662 012746 000002 


041672 062706 000006 


000001 
000001 
000001 


2 012737 000002 
3217 041734 012737 140000 
3218 041742 013737 002314 
th 041750 004737 036434 


005737 002320 
sees 041760 001415 


012737 032640 


041776 032740 
3226 042000 
104406 


000014 


002334 


002316 
002272 
002270 
002272 


002314 
002250 


002310 
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-SBTTL TEST 2: SA REGISTER WRAP TEST 





_— o-oo CO - 


SEQ 86 


5 EERE EE ERE EERE SER EE ERE EERE EERE EER EREEE EE EEEEEEEEEEEEEEEE 
5 EERE EERE EERE RAE EERE EER ERE ERE EERE RARER EEEREREEEEEREEERERE 


;TEST 2- Tare REGISTER WRAP TEST 


; T 

: IP — ISTER. IT WILL FORCE THE UUT INTO DIAGNOSTIC 

3 WRITE FIRST A FLOATING O DATA PATTERN, 

$ FOLLOWED BY A FLOATING 1 DATA PATTERN TO T 

; EACH WRITE WILL BE FOLLOWED BY A READ AND COMPARE 

: OPERATION. 

{RRR AE EEE EEE AREER E EERE AEE E ERE EERE EEE EEEEEEEEEEEEEEEEEREEE 
| isensensensgusensensensensenssnsenssnsensensensonsonsensensenee® 
N 

T2:: 
BIT #DRPFLG,LUNFLG(R4) :IF UUT NOT DROPPED 
BEQ G02 THEN DO TEST 
RFLAGS FLAGS FELSE GO GET SUPRVISOR FLAGS 
TRAP CS$RFLA 
MOV RO,FLAGS 
BIT #PNT ,FLAGS ;SEE IF WE'RE PRINTING TEST NUMBERS 
EQ $ ;NO, DON'T PRINT BYPASSED 
PRINTF #BYPASS,L$TEST ; ELSE PRINT THE TEST 
MOV L$TEST,-CSP) 
MOV #BYPASS,-(SP) 
MOV #2, -(SF) 
MOV SP,RO 
TRAP C$PNTF 
ADD #6, SP 

1$: EXIT TST ;BYPASSED MESSAGE AND GET OUT 
TRAP CSEXIT 
-WORD L10020-. 

G02: MOV #1,INISTP ;STEP 1 FOR ERROR PRINTOUT 
MOV #1,ITRCNT ;SET UP FOR ONE TEST ITERATION 
CMP #1,PASCNT ;IF FIRST PASS 
BEQ 2$ ; THEN START TEST 
MOV #2, ITRCNT ; ELSE DO 2 ITERATIONS 

2s: MOV ;SET UP STEP 1 FOR DIAG. WRAP MODE 


#6171538. WR, SAEXP 
MOV SAEXP,STPTBL 
JSR PC, STEP1 
TST STEPST 
5$ 
MOV #CTRL ,FRUIS 
ERRDF 9.,€MSG9,PRIINI 
TRA CSEROF 
“WORD EMSG9 
“WORD  PRIINI 


CSCLP1 


sPUT IT_IN STEP 1 OF TABLE 
0 00 IT 


;IF STATUS OKAY 
; THEN CONTINUE TEST 


sFAILING FRU FOR PRINTOUT 
;"SA CONTENTS IN ERROR” 


;LOOP ON ERROR? 


J7 


| HARDWARE TEST MACRO YOS.02 Tuesday 16-Apr-85 08:44 Page 50-1 
\ TEST 2: SA REGISTER WRAP TEST 


3227 042002 
2002 0137060 
2006 104451 


042010 104410 
000372 


3230 042014 012737 


030465 
042074 032740 
042076 104406 


042100 013700 
042104 104451 


042106 104410 
042110 000274 


3245 042112 012737 
3246 042120 013774 
3247 042126 013737 
eens 042134 012737 


3250 042142 013737 


3256 042176 001761 
3258 042200 012737 


042214 032740 
042216 104406 


042220 013700 
042224 104451 


042226 104410 


002312 


000100 
037200 
000002 
002314 


036406 
002330 


032640 


002312 


177776 
002322 
002322 
000100 


037200 
000002 
002314 
036406 
002330 


032640 


002312 


002326 


5$: 


002324 6$: 


000012 
000012 


002310 


002322 
000002 
002314 
002326 


002324 


000012 
000012 


002310 


10$: 
11$: 


15$: 


DODU 
MO 


TRAP 


p 
ESCAPE TST 


LOGUNT 
LOGUNT ,RO 
> aaa 


ST 
C$ESCAPE 
L10020-. 


#100, OUTER 

#16000. , INNER 
ATKSACR4), TKSASV(R4) 
SAEXP , TKSASV(R4 ) 


10$ 
PC,PDELAY 
TOUT 

6$ 
#CTRL,FRUIS 
10. ,EMSG9, PRIINI 
CSERDF 

10 

EMSG9 
PRIINI 
C$CLP1 


S 
CS$ESCAPE 
L10020-. 


#177776,WRDATA 
WRDATA, STKSACRA) 
WRDATA, SAEXP 

#100, OUTER 


16000. , INNER 
ATKSACR4), TKSASV(R4) 
SAEXP , TKSASV(R4) 
20$ 

PC,PDELAY 

TOUT 

15$ 

#CTRL,FRUIS 

11. ,€MSG10,PRIINI 
CSERDF 

EMSG10 

PRIINI 

CS$CLP1 

LOGUNT 

LOGUNT , RO 

C$DODU 


CSESCAPE 


;DROP UUT 


;LEAVE TST 


;SET UP FOR DELAY ROUTINE 
;SET UP INNER 

;GET _ CONTENTS 

;IF_SA IS WH - WHAT WE EXPECT 


m 
cr 
w 
o 
ha 
< 
ame 
ac> 
Soca 
3 
—_ 
al 
= 


N OUT YET 
THEN GO TAKE ANOTHER LOOK 


;FAILING FRU FOR PRINTOUT 
;"SA CONTENTS IN ERROR” 


s;INITIALIZE WRAP DATA 
;SEND DATA TO UUT 

s;SAVE A COPY FOR COMPARE 
;SET UP FOR DELAY ROUTINE 


;INNER TOO 


sREAD SA 

;IF DATA MATCHES 

; THEN CHANGE DATA 

;__ ELSE GIVE UUT SOME TIME 
;IF_NO TIMEOUT YET 

; THEN GO TAKE ANOTHER LOOK 


s;FAILING FRU FOR PRINTOUT 
;"SA WRONG IN DATA WRAP” 


;GET OUT IF NOT LOOPING 


| HARDWARE TEST 


042230 


3264 042232 
3265 042236 
3266 


i 
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| TEST 2: SA REGISTER WRAP TEST 


000154 


006137 
103730 


012737 


012737 
012737 


012737 
104455 


032740 
104406 


013700 
104451 


104432 
000002 


104401 


002322 


000001 
002322 
002322 
000100 
016000 
000002 
002314 
036406 
002330 


032640 


002312 


002322 
002272 
041734 


002322 
000002 
002314 
002326 


002324 


002310 


20$: 


243: 


25$: 


30$: 


T2EXT: 


L10020: 


. WORD 


L10020-. 

WRDATA 

11$ 

#1,WRDATA 
WRDATA, @TKSACR4) 
WRDATA, SAEXP 
#100,OUTER 
#16000, INNER 
ATKSACR4 ), TKSASV(R4) 
SAEXP , TKSASV(R4) 
30$ 

PC,PDELAY 

TOUT 

25$ 

#CTRL ,FRUIS 

12. ,EMSG10,PRIINI 
CSERDF 

12 

EMSG10 

PRIINI 

CS$CLP1 


CSESCAPE 
L10020-. 


WRDATA 
24$ 
ITRCNT 
T2EXT 
2$ 

TST 
CSEXIT 
L10020-. 


CSETST 


—- —s oe 


SE 


;SHIFT TEST PATTERN 
sWE'RE NOT DONE YET 


;SET UP FOR FLOATING 1 PATTERN 
sSEND DATA TO UUT 

sKEEP A COPY FOR COMPARE 

;SET UP FOR DELAY ROUTINE 


s;DELAY ROUTINE TOO 

sREAD THE SA 

;IF IT MATCHES 

; THEN SEE IF WE'RE DONE 

;__ ELSE GIVE UUT SOME MORE TIME 
sIF_NO TIMEOUT YET 


Y 
THEN TAKE ANOTHER LOOK 


sFAILING FRU FOR PRINTOUT 
;"SA WRONG IN DATA WRAP” 


sLEAVE TEST IF NOT LOOPING 


SHIFT DATA PATTERN 
;WE'RE NOT DONE YET 
;IF ITERATIONS = 0 

; THEN LEAVE TEST 

; ELSE DO ANOTHER ONE 


s;GET OUTTA HERE 


HARDWARE TEST 


TEST 3: 


——— 2 come. ae soe 
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INITIALIZATION TEST 


03 
012737 
012705 
012737 


012737 


012737 
012737 
012737 
112737 


000001 
002334 
001000 
002114 
047502 
000002 


000006 


032640 
000001 
000001 


900012 


000014 


002334 


002310 
002272 
002270 


002272 


002265 


-SBTTL TEST 3: INITIALIZATION TEST 


5 5 SEES EEE EEEE EEE EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 
b sSOSSSSSSSSSSSSESESSEESEELESESTeSEeSTeSToSsEESSESSSSESeNSSESESS 


T3:: 


i$: 


GO3: 


2$: 


;TEST 3 - fa tet toee Mi a 
THIS T NCE 


IS ECHOED BY T THE 
PROGRAM FURTHER VERIFIES THAT NO INTERRUPTS OCCUR AS A 
RESULT OF THE STEP TRANSITIONS. 


3 
55 EEE REESE EE EEE EEE EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEESEEESEEEEEESE 
5 EERE EEE EEE EEE EEE EEE EEE EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 


BGNTST 


#DRPFLG,LUNFLG(R4) ;IF_UUT NOT DROPPED 
G03 ;_ THEN DO TEST 
FLAGS sELSE GO GET SUPRVISOR FLAGS 
CS$RFLA 
RO,FLAGS 
@PNT FLAGS ;SEE IF WE'RE PRINTING TEST NUMBERS 
1$ 3NO, DON'T PRINT BYPASSED 
#BYPASS, po aed ; ELSE PRINT THE TEST 
L$TEST,-(SP) 
@BYPASS, -( SP) 
#2,-( P) 
SP ,RO 
C$PNTF 
#6 , SP 
TST sBYPASSED MESSAGE AND GET OUT 
CSEXIT 
L10021-. 
#CTRL,FRUIS sFAILING FRU IN CASE OF ERROR 
#1, ITRCNT ;SET UP Aa ONE TEST ITERATION 
#1,PASCNT ;IF FIRST PASS 
es ; HEN START TEST 
#10. ,ITRCNT ; ELSE DO 10 ITERATIONS 
#0,R5 ;SET UP RS AS INDEX TO si? TABLES 
#1,INISTP sSTEP 1 FOR ERROR PRINTOUT 

;PUT i. IN STEP 1 


TKVEC(R4), STPTBL 
STPTBL sDIVIDE BY TWO 

STPTBL sDIVIDE BY FOUR 

STPTBL ,CMPTBL +4 ;PUT_VECTOR IN STEP 3 COMPARE 
#104400, STPTBL sREST OF STEP ONE 

#8 .S1!B8.QB!6.01!8.00!B. eT BL 


sSTEP 1 COMPARE VALUE 
#COMMAR , STPTBL +2 sSTEP 2 - COMM AREA ADDRESS 
#010211, CMPTBL +2 sSTEP 2 COMPARE 
#0,STPTBL +4 s;STEP 3 - HIGH ADDRESS 
#40, CMPTBL+5 sREST OF STEP 3 COMPARE 


‘HARDWARE TEST 


3349 042620 
3350 042626 
3351 


M7 
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TEST 3: INITIALIZATION TEST 


012737 
012737 


0 5 
032740 
104406 


032740 
104406 


013700 
104451 
104410 
000040 


016574 


032764 


000000 
040000 


036434 
002320 


002312 


002312 


002250 
000006 


000001 


002256 
002266 


002326 
002314 
002324 
000012 


000012 


000012 


000002 108: 


000014 


5$: 
6$: 
7$: 


8$: 
9$: 


#0,STPTBL+6 
#040000 , CMPTBL +6 


PC, STEP1 
STEPST 

9. ,EMSG9,PRIINI 
— 
EMSG9 
PRIINI 
CS$CLP1 
LOGUNT 
LOGUNT ,RO 
C$000U 
TST 
CSESCAPE 
L10021-. 
oy ly 


$100, OU 
CHPTALCRS), SAEXP 
#16000., 
|TKSACR4), TKSASV(R4) 
#6 ,RS 


8$ 
SAEXP , TKSASV(R4 ) 
10$ 


9$ 

— 
PC ,PDELAY 

TOUT 

7$ 

13. ,EMSG9,PRIINI 
CSEROF 

13 

EMSG9 

PRIINI 

CSCLP1 

LOGUNT 

LOGUNT ,RO 
C$D00U 


TST 

CSESCAPE 

L10021-. 

STPTBL(RS), @TKSACR4 ) 
#6,R5 


5$ 
#DRPFLG,LUNFLG(R4 ) 


— ——_— - - - ee ee Ce 


;STEP 4 

sSTEP 4 COMPARE 

;G0 DO IT 

sIF STATUS OnAY 

; THEN CONTINUE TEST 
;"SA CONTENTS IN ERROR” 


;LOOP ON ERROR? 
;DROP UUT 


;sLEAVE TST 


sADJUST STEP COUNTER 
;AD NDEX 


sARE WE oy STEP 4? 


sIF SA IS WHAT WE EXPECT 
; THEN MOVE ALONG 
;_ ELSE GIVE UUT SOME TIME 
;IF_ NO TIMEOUT YET 


; THEN GO TAKE ANOTHER LOOK 


;"SA CONTENTS IN ERROR” 


sWRITE NEXT 1. TO UUT 
;IF NOT IN STEP 
;GO0 BACK TO MAIN. LOOP 


sHAS UUT BEEN DROPPED 


SEQ 90 


-—_—— me ee 
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TEST 3: INITIALIZATION TEST 


3388 043042 001003 BNE T3EXT 

3389 043044 005337 002272 DEC ITRCNT 

444 043050 001222 BNE 2s 

3392 043052 T3EXT: EXIT TST 
043052 104432 TRAP CSEXxIT 
043054 000002 -WORD 110021-. 


3393 
3394 043056 ENDTST 
043056 110021: 
043056 104401 TRAP CSETST 
| 


—_—_ ee ee 


sLEAVE NOW IF SO 
;IF_ MORE ITERATIONS LEFT 
; THEN GO DO IT AGAIN 


SEQ 91 


—— ———_— SS wir 


MACRO 


032764 
001423 


012737 
012737 


3397 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
052737 
i 


02 


000012 
036316 
000000 
000001 


000200 


000014 


002334 


000014 


002272 


002316 
002250 


002264 
002250 
002260 


002252 
002262 
002254 
002264 
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“gag MRE EETOR AMD INTERRUPT TEST” on 


SEQ 92 


-SBTTL TEST 4: VECTOR AND INTERRUPT TEST 


£ FE FSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS SSS SS SSSSESSESSESSESSESSESSSSESSEEESS 
FF FSSSSSSSSSSSSSASSSSSSSSSSSSSSS SSS SSSESSSESSSSSSSESSSSSSESSSSSSESES 


T4:: 


2$: 


;TEST 4 Tet ot AND INTERRUPT TEST 


T 3 IS REPEATED, BUT WITH INTERRUPTS ENABLED. 
THE PROGRAM VERIFIES THAT AN INTERRUPT OCCURS AT 
THE END OF STEPS 1 - 3. 


3 
FF SSSSSSSASSSSSSSSSSSERSASSSS SSS SESS SS SS SSSESSESSESSES ASSESSES SSESSESSESESS 
SF SSSSSSERESSSSSSSERSSSSS SSS ESSE SESSESESESSESSESRSESSSSESSESSESSESESSESESESS 


BGNTST 


er 


FLAGS 
C$RFLA 
RO,FLAGS 
#PNT FLAGS 


1 

#BYPASS ,L$TEST 
L$TEST, -(SP) 
@BYPASS, -( SP) 
+ -(SP) 


S 
CSEXIT 
L10022-. 


#BRFLAG,LUNFLG(R4 ) 
#INTFLG,LUNFLG(R4 ) 
#CTRL,FRUIS 

#1, ITRCNT 
#1,PASCNT 


2$ 

#10. ,ITRCNT 

PC, VECTOR 

#0 t Sure 

#1,I 

TWVECCRA), »STPTBL 
STPTBL 


B 
STPTBL ,CMPTBL +4 
#104600, STPT 


BL 
#B8.S1!B.QB!68.01!B.00!B. MP, CMP 


#COMMAR , STPTBL +2 
poe tie CMPTBL+2 
#0, STPTBL +4 

#68. IE, CMPTBL +4 


- UUT NOT DROPPED 
THEN DO TEST 
;ELSE GO GET SUPRVISOR FLAGS 


;SEE IF WE'RE PRINTING TEST NUMBERS 
NO, DON'T PRINT BYPASSED 
; ELSE PRINT THE TEST 


;BYPASSED MESSAGE AND GET OUT 


300 TEST WITH PRIORITY SET TO 0 
sCLEAR THE INTERUPT FLAG 

ah ey FRU IN CASE OF ERROR 
;SET UP . ONE TEST ITERATION 
;1F FIRST P ~ 

3; THEN START TEST 

; ELSE DO to ITERATIONS 


;SET UP VECTOR WITH INTERRUPT HANDLER 
UP RS AS INDEX TO STEP TABLES 

;STEP 1 FOR ERROR PRINTOUT 

;PUT be hh. STEP 1 


;DIV OUR 
sPUT VECTOR IN STEP 3 COMPARE 
sREST OF STEP ONE 


TBL 
;STEP 1 COMPARE VALUE 
sSTEP 2 - FARE ADDRESS 


COMP 
;STEP_3 - HIGH ADDRESS 
;SET THE INTERRUPT ENABLE BIT 


ae e 


| HARDWARE TEST 
TEST 4: VECTOR 


3449 043312 
50 043320 
332 


sees Segeewy 
= whr 

2g 

e & 


en ee ee 
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AND INTERRUPT TEST 


112737 
012737 
012737 
004737 
005737 
001412 
104455 


000016 
030465 
032740 


104406 


013700 
104451 


104410 
000246 


012737 


104455 
000017 
030540 
033146 
104406 


013700 
104451 


000404 
023764 
001412 


000040 
000000 
040000 
036434 
062320 


002312 


000100 
002260 
037200 
000002 


036406 
002330 


002312 


000002 


002314 


002314 


002265 
002256 
002266 


costes S$: 
002324 7$: 


000014 10%: 


002314 
000012 


000012 


000012 15%: 


#40, CMPTBL+5 
#0,STPTBL +6 
#040000 , CMPTBL +6 


ste STEP1 
EPST 


14. ,EMSG9,PRIINI 
CSERDF 


EMSG9 

PRIINI 
C$CLP1 
LOGUNT 


LOGUNT ,RO 
aa 


CSESCAPE 
L10022-. 


#100, OUT 

CHPTBLCRS), SAEXP 
#16000. , INNER 
eINTFLG, »LUNFLG(R4 ) 
PC ,PDELAY 

TOUT 

7$ 

15. ,E€MSG11,PRIERR 
C$ERDF 


=" 
wn 


1 
EMSG11 
PRIERR 


C$CLP1 
LOGUNT 
LOGUNT ,RO 
a 


CSESCAPE 
L10022-. 


#INTFLG,LUNFLG(R4 ) 
INISTP 


#2,R5 
CMPTBL(RS), SAEXP 
er aint leet 


15$ 
SAEXP , TKSASV(R4 ) 
20$ 


16$ 
SAEXP , TKSASV(R4) 
20$ 


rer OF STEP 3 COMPARE 
; STEP 4 COMPARE 

:GO DO IT 

;IF STATUS OKAY 

; THEN CONTINUE TEST 
;"SA CONTENTS IN ERROR” 


;LOOP ON ERROR? 
;DROP UUT 


;sLEAVE TST 


;SET UP FOR DELAY ROUTINE 
;SET UP FOR COMPARE 


;SET UP INNER 

;IF_ INTERRUPT OCCURRED 

; THEN SEE IF SA IS A 
;__ ELSE GIVE UUT SOME TIME 
3IF_NO TIMEOUT YET 

; THEN GO TAKE ANOTHER LOOK 


;"EXPECTED INTERRUPT DID NOT OCCUR” 


;CLEAR THE INTERRUPT FLAG 
sADJUST THE STEP COUNTER 
;ADJUST TABLE INDEX 

;GET THE a VALUE 


GE WE IN STEP 4? 


; IF NOT 
;JUST LOOK FOR STEP 4 BIT 
:IT'S SET SO LET'S GO 


;ERROR 
;IF SA IS WHAT WE EXPECT 
3; THEN MOVE ALONG 





—_—— 


Se ed ee ee oe 
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| TEST 4: VECTOR AND INTERRUPT TEST 


| 
3488 
3489 043544 16$: ERRDF  16.,EMSG9,PRIINI 
043544 104455 TRAP C$ERDF 
043546 000020 -WORD 16 
043550 030465 -WORD EMSG9 
043552 032740 -WORD  PRIINI 
3490 043554 CKLOOP 
043554 104406 TRAP C$CLP1 
3491 043556 DODU LOGUNT 
043556 013700 002312 MOV LOGUNT ,RO 
043562 104451 TRAP C$D0D0U 
3492 043564 ESCAPE TST 
043564 104410 TRAP CSESCAPE 
3493 043566 000050 -WORD 1L10022-. 
3494 043570 016574 002250 000002 20$: MOV STPTBLCRS),@TKSACR4) 
3495 043576 022705 000006 CMP #6 ,RS 
pt 043602 001273 BNE 5$ 
3498 043604 032764 000001 000014 BIT #DRPFLG,LUNFLG(R4) 
3499 043612 001005 BNE T4EXT 
3500 043614 005337 002272 DEC ITRCNT 
3501 043620 001402 BEQ T4EXT 
see 043622 000137 043204 JMP 2$ 
3504 043626 004737 036266 T4EXT: JSR PC,RSTVEC 
3505 043632 EXIT TST 
043632 104432 TRAP CSEXTT 
5s05 043634 000002 -WORD L10022-. 
3507 043636 ENDTST 
043636 L10022: 


043636 104401 TRAP CSETST 


;"SA CONTENTS IN ERROR” 


sWRITE NEXT STEP TO UUT 
;IF NOT IN STEP 4 
;GO BACK TO MAIN LOOP 


sHAS UUT BEEN DROPPED 
sLEAVE NOW IF SO 
;IF_NO 3: aiemamieaaties LEFT 


THEN 
; ELSE DO IT AGAIN 
;CATCH ILLEGAL INTERRUPTS 


| 
' 


TS: 


| HAROARE TEST 


~—_—— —— lll el, a te a 
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BR LEVEL TEST . ‘ _ 


032764 
001423 


012746 


016437 


004737 
005737 
001412 


036434 
002320 


000014 


002334 


002270 
002272 


002316 


002250 


002250 
002260 


.SBTTL TEST 5: BR LEVEL TEST 


5 EERE EE ERE RERERE EERE REESE EES ESEEEECEREEEEEREEES 
joie ie Peace eatin acetate ews me 


;TEST S - BR LEVEL TEST 
THIS LL 4 INSURES THAT THE TK5O — vl INTERRUPT 


2 
‘ 
‘ 
a 
. 


TS:: 


1$: 


2s: 


CPU PRIORITY IS SET T 


TEST GOES 


N 
ONLY THROUGH THE FIRST STEP OF THE INIT SEQUENCE 
SINCE THE CONTROLLER WILL “HANG” WAITING FOR THE 
INTERRUPT ACKNOWLEDGE . 


; 
5p EERE EERE EERE ERE EREREREREREEAESEERESEERERESRESRESRERESE 
2 FREER ERASER EREREREE AE EEE REESE EERE ERERERERERESE 


BGNTST 


ee eee 


PNT, »FLAGS 
#BYPASS,L$TEST 
L$TEST,-(SP) 
als eal 


CSEXxIT 
L10023-. 


#BRFLAG,LUNFLG(R4 ) 
#CTRL,FRUIS 
#1,ITRCNT 
#1,PASCNT 


2$ 
#2, ITRCNT 


#PRIO7 
Ay ae 


a1 

TKVECCRA), STPTBL 
STPTBL 

STPTBL 

#104600, STPTBL 
TKVECC(R4), CMPTBL 


PC,STEP1 
STEPST 
5$ 


;IF_UUT NOT DROPPED 

;_ THEN DO TEST 

;ELSE GO GET SUPRVISOR FLAGS 

;SEE IF WE'RE PRINTING ad NUMBERS 


;NO, DON'T PRINT BYPASSE 
; ELSE PRINT THE TEST 


;BYPASSED MESSAGE AND GET OUT 


+00 TEST WITH HIGH PRIORITY 
Sy FRU IN CASE OF ERROR 
T UP ty A TEST ITERATION 


; EST 
; ELSE DO 10 ITERATIONS 
;CPU PRIORITY = 7 


;SET UP hs hl WITH INTERRUPT HANDLER 
Raye TO Ry TABLES 


; ONE 
;STEP 1 COMPARE VALUE 


:GO DO IT 
;IF STATUS OKAY 
; THEN CONTINUE TEST 


bray TEST 
TEST 5: BR LEVEL TEST 


3562 enters 
104455 
oaaoae 000016 
030465 
032740 
104406 


013700 
104451 


104410 
000212 


012737 


032740 
104406 


013700 
104451 


104410 
000114 


032764 


032740 
104406 


013700 
104451 


104410 
000052 


106427 


002312 


002312 - 


000002 
000002 


002312 


000000 


002326 
002314 
002324 


000012 
000012 


000014 
000014 





S$: 


7$: 
9$: 


10$: 


208: 
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Page 56-1 
14. ,EMSG9,PRIINI 
CSERDF 
14 
EMSG9 


PRIINI 
CSCLP1 


TS 
CSESCAPE 
L10023-. 


#100, OUTE 
CHPTBLCRS), SAEXP 
#16000. , INNER 

PC ,PDELAY 

TOUT 

7$ 
ATKSACR4 ), TKSASV(R4) 
SAEXP , TKSASV(R4 ) 

10$ 

17. ,EMSG9,PRIINI 
CSERDF 

17 

EMSG9 

PRIINI 

C$CLP1 

LOGUNT 

LOGUNT , RO 

C$DODU 

TST 


CSESCAPE 
L10023-. 


Soe AS AAPL RE) 
#INTFLG,LUNFLGCR4) 
18. ,EMSG12,PRIINI 
— 


1 
EMSG12 
PRIINI 


C$CLP1 


TST 
CSESCAPE 
L10023-. 


#PRIOO 


;"SA CONTENTS IN ERROR” 


;LOOP ON ERROR? 
;DROP UUT 


sLEAVE TST 


#SET UP FOR DELAY ROUTINE 
T UP FOR COMPARE 

;SET UP INNER 

;__ ELSE GIVE wee TIME 


:IF_NO TIMEOUT 
; THEN GO TAKE ANOTHER LOOK 


;GET SA a ack 
;IF CONTENTS OKA 
; THEN CHECK FOR INTERRUPT 


;"SA CONTENTS IN ERROR” 


:IF_NO INTERRUPT OCCURRED 
;_ THEN CARRY ON WITH TEST 


sCLEAR FLAG IN CASE WE'RE LOOPING 


;"INTRRPT WITH CPU PRIORITY =7" 


;CPU PRIORITY = 0 


SEQ 96 | 


| 


| HARDWARE TEST 
| TEST 5: BR LEVEL TEST 


3592 044234 


3603 044274 
74 


a ce 


000002 
000001 
002272 
043756 
036266 
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NOP 
NOP 
000014 BIC #INTFLG,LUNFLGC(R4) 
000014 BIT #DRPFLG,LUNFLG(R4 ) 
BNE TSEXT 
DEC ITRCNT 
BEQ TSEXT 
JMP 2$ 
TSEXT: JSR PC,RSTVEC 
EXIT TST 


TRAP CSEXIT 
-WORD L10023-. 


E 
L10023: 
TRAP CSETST 


;DELAY FOR PENDING INTERRUPT 
;CLEAR THE FLAG NOW 


;HAS UUT BEEN DROPPED 
;LEAVE NOW IF SO 

TF NO, MORE ITERATIONS LEFT 
; ELSE DO IT AGAIN 


CATCH ILLEGAL INTERRUPTS 


ig ie ee 


SEQ 97 


———— -- — = -- 


| 


were TEST 


ee ee ee ee 
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T 6: PURGE AND POLL TEST 


032764 
001423 


104421 
010037 
032737 
001412 


013746 


104432 
000526 


012737 
012737 
022737 
001403 
012737 


012705 


012737 


000001 


002334 
001000 


002114 
047502 
000002 


000006 


032640 
000001 
000001 


000012 


104400 
005700 


000014 


002334 


002310 
002272 
002270 


002272 


002316 
002250 


002264 
002250 
002260 


-SBTTL TEST 6: PURGE AND POLL TEST 


55 ERERERRERER EEE REA ERE RARER EREREEREREEAEERERERER ERE EREREEEEEEEESED 
55 EERE ERERERER ERE RE EE EER ER ERE ER ERERE REE ERERREEAEREREREEEEE EE 


;TEST 6 - PURGE AND POLL TEST 


* =e Ss Se Ge es Gs ee Se Ge os oe 


THIS TEST WILL AGAIN RUN THROUGH THE INIT SEQUENCE, THIS 
TIME SETTING THE “PURGE AND POLL" BIT IN STEP 3. THIS 


AND FROM THE COMMUNICATIONS AREA AND aly LEAVE IT 
CLEARED BEFORE TRANSITIONING TO STEP THE PROGRAM WILL 
HAVE FILLED THIS AREA WITH A BACKGROUND PATTERN f ALL 
1'S DATA PRIOR TO STARTING THE INIT. WHNE STEP 4 IS 
REACHED, THE PROGRAM WILL VERIFY THAT THE COMM AREA IS 
ALL 0'S, AND THAT THE 20 WORDS PRECEDING AND SUCCEEDING 
THE COMM AREA ARE UNTOUCHED. RING DEPTH USED IN THIS 
TEST IS THE MINIMUM. 


5 ERE RRR EERE AEE R EEE EERE EEE ERE RARE REE EAE EEE EEEREEEKEE EERE EES 
5 REE REEEEEREEE REE K EEA EE EERE EER ERE AEEAREREREEEEE 


T6:: 


1$: 


G06: 


2s: 


BGNTST 


BIT #DRPFLG,LUNFLG(R4) 
BEQ G06 

RFLAGS FLAGS 

TRAP C$RFLA 

MOV RO,FLAGS 


BIT #PNT ,FLAGS 
BEQ 1$ ;NO, DON'T PRINT BYPASSED 
PRINTF #BYPASS,L$TEST ; ELSE PRINT THE TEST 
MOV L$TEST,-(SP) 
MOV #BYPASS , -(SP) 

(SP) 


;IF = 4 NOT DROPPED 


MOV #2, - 

MOV SS, 

TRAP C$PNTF 

ADD #6,S 

EXIT TST sBYPASSED MESSAGE AND GET 


TRAP CSEXIT 
-WORD L10024-. 


MOV #CTRL,FRUIS 


MOV #1,ITRCNT sSET UP FOR ONE TEST ITERATION 
CMP #1,PASCNT ;IF FIRST PASS 

BEQ 2$ ; THEN START TEST 

MOV #10. ,ITRCNT ; ELSE DO 10 ITERATIONS 

MOV #0, ae ;SET UP RS AS INDEX TO AL TABLES 
MOV #1,I ;STEP.1 FOR oye PRINTOUT 

MOV TKVECCRA), STPTBL ;PUT VECTOR IN STEP 1 

ASR STPTBL ;DIVIDE BY TW uo 

ASR STPTBL sDIVIDE BY FOUR 

MOV STPTBL ,CMPTBL+4 ;PUT VECTOR IN STEP 3 COMPARE 
BIS #104400, STPTBL ;REST OF STEP ONE 


MOV #B.S1!B.QB!B.DI!B.OD!B. MP, CMPTBL 
;STEP 1 COMPARE VALUE 


;_ TH EST 
sELSE GO GET SUPRVISOR FLAGS 


;SEE IF WE'RE PRINTING TEST NUMBERS 


OUT 


sFAILING FRU IN CASE OF ERROR 


| HARDWARE TEST 
TEST 6: PURGE 


3660 044464 
366 


012737 


012737 
012737 
004737 


032740 
104406 


013700 
104451 


104410 
000306 


005237 


001751 


104455 
000024 
030465 
032740 


104406 


013700 
104451 


104410 


A 


040000 
000012 
036532 


036434 
002320 


002312 


002316 
000002 
000100 
002260 
037200 
000002 
000006 


002314 
002314 


036406 
002330 


002312 


002326 
002314 
002324 
000012 


000012 


000012 


5$: 
6$: 


8$: 
9$: 


18 
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AND POLL TEST 


#COMMAR , STPTBL +2 
#010211, CMPTBL +2 
STPTBL+4 


bd UJ 


#40, CMPTBL+5 
#0, STPTBL+6 
#040000 , CMPTBL +6 


#10. ,CMARLG 
PC ,BAKPAT 


PC,STEP1 

STEPST 

19. ,EMSG9, PRIINI 
CSERDF 

19 

EMSG9 

PRIINI 

C$CLP1 


T 
CSESCAPE 
L10024-. 


INISTP 

#2,R5 

#100, OUTER 

CHPTBL (RS). SAEXP 
#1600 NNER 
aTKksacaa), » TKSASVCR4 ) 


8 
SAEXP , TKSASV(R4 ) 
10$ 


9$ 
SAEXP , TKSASV(R4) 
10$ 

PC, PDELAY 

TOUT 

7$ 

20. ,EMSG9, PRIINI 
C$ERDF 

EMSG9 

PRIINI 

C$CLP1 

LOSUNT 

LOGUNT ,RO 
C$DODU 


TST 
CSESCAPE 


SEQ 99 


s;STEP 2 - COMM AREA ADDRESS 

sSTEP 2 COMPARE 

;STEP 3 _- HIGH ADDRESS AND PRGE/POLL 
se Y STEP 3 COMPARE 


:S 
;STEP 4 COMPARE 


;LENGTH OF COMM AREA FOR THIS TEST 
;FILL COMM AREA WITH ALL 1'S DATA 


:GO DO IT 

;IF STATUS OKAY 

; THEN CONTINUE TEST 
;"SA CONTENTS IN ERROR“ 


;LOOP ON ERROR? 
;DROP UUT 


;LEAVE TST 


; ADJUST ae COUNTER 
;ADJUST TABLE INDEX 
;SET UP FOR DELAY ROUTINE 
;SET UP FOR COMPARE 

INNER 


;SET 
GET SA CONTENTS 
sARE WE 7 STEP 4? 


;BRANC NOT 

; JUST ook FOR STEP 4 BIT 
;IT'S SET SO LET'S GO 

;STAY IN LOOP OTHERWISE 

sIF_ SA IS WHAT WE EXPECT 

; THEN MOVE ALONG 

;_ ELSE GIVE UUT SOME TIME 
;IF NO TIMEOUT YET 

; THEN GO TAKE ANOTHER LOOK 


;"SA CONTENTS IN ERROR” 


=-:) 
= 
= 


-4 


eee 


| HARDWARE TEST 
PURGE AND P 


T 6: 


H 3701 
3702 
3703 
3704 


044724 


044726 
044734 
044740 


045100 
045100 
045102 


045104 
045104 
045104 


ae ee oe 


000160 


016574 
022705 
001404 


032740 
104406 


013700 
104451 


104410 
000050 


012774 
005774 
000653 


004737 


000137 


104432 
000002 


104401 





002250 000002 10%: 
000004 


000006 


000001 
002116 
177772 
177756 
000002 


002312 


000000 
000000 


036562 
000001 
002272 
044412 


000012 


000002 


000014 


15$: 


16$: 


T6EXT: 


L10024: 


. WORD 


ENDTST 
TRAP 
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OLL TEST Deno a 


L10024-. 
STPTBLCRS), @TKSACR4) 
#4,RS 


15$ 
#6 ,RS 
5$ 
208 
1 
#1,(PC)« 
L$DLY, (PCs 
-6(PC) 
-4 
“22(PC) 
BTKSACRA), TKSASV(RA) 
16$ 


21. ,EMSG13,PRIINI 
CSERDF 


21 

EMSG13 
PRIINI 
C$CLP1 
LOGUNT 
LOGUNT , RO 
C$D0DU 
TST 
CSESCAPE 
L10024-. 


#0, ITKSACR4) 
linia 


PC, CHKCOM 
@DRPFLG, »LUNFLGC(R4) 


TST 
CSEXIT 
L10024-. 


CSETST 


SEQ 100 


WRITE NEXT STEP TO UUT 
;IF_STEP 3 

;__ THEN DO PURGE/POLL STUFF 
;IF NOT IN STEP 4 

; THEN GO BACK TO MAIN LOOP 
; ELSE GO CHECK RESULTS 


sGIVE PORT SOME TIME 


;GET SA CONTENTS 
;BRANCH IF OKAY 


SA NOT O IN PURGE/POLL 


;WRITE 0’S TO SA 
;AND READ IP 
;G0 WAIT FOR NEXT TRANSITION 


vt CHECK COMM AREA 
; 0 
;IF_NO MORE ITERATIONS LEFT 


; THEN LEAVE TEST 
; ELSE DO IT AGAIN 


——L— ee 


= 


TT SSS esse 


| HARDWARE TEST 


ee ee ee 
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RING BUFFER TEST ¥ - spi 


-SBTTL TEST 7: MAXIMUM RING BUFFER TEST 


mene = eee ee 


SEQ 101 


BGNTST 
T7:: 
032764 000001 000014 BIT #DRPFLG,LUNFLG(R4) ;IF UUT NOT DROPPED 
001423 BEQ G07 ; THEN DO TEST 
RFLAGS FLAGS ;ELSE GO GET SUPRVISOR FLAGS 
104421 TRAP $RFLA 
010037 002334 MOV RO,FLAGS 
032737 001000 002334 BIT #PNT, FLAGS ;SEE IF WE'RE PRINTING TEST NUMBERS 
001412 BEQ $ 3NO, DON'T PRINT BYPASSED 
PRINTF #BYPASS,L$TEST ; ELSE PRINT THE TEST 
013746 002114 MOV L$TEST,-(CSP) 
012746 047502 MOV #BYPASS, -(SP) 
012746 000002 MOV #2,-(SP ) 
0106 MOV ,RO 
104417 TRAP CSPNTF 
062706 000006 ADD #6, SP 
i$: EXIT TST ;BYPASSED MESSAGE AND GET OUT 
104432 TRAP CSEXIT 
000526 -WORD L10025-. 
012737 032640 002310 G07: MOV #CTRL,FRUIS ;FAILING FRU IN CASE OF ERROR 
012737 000001 002272 MOV #1,ITRCNT ;SET UP FOR ONE TEST ITERATION 
022737 000001 002270 CMP #1,PASCNT ; IF FIRST PASS 
001403 BEQ 2$ ; THEN START TEST 
012737 000012 002272 MOV #10. , ITRCNT ; ELSE DO 10 ITERATIONS 
012705 2$: MOV #0,R5 ;SET UP RS AS INDEX rn zrer TABLES 
012737 000001 002316 MOV #1,INISTP ;STEP 1 FOR ERROR PRINT 
016437 000004 002250 MOV TKVECCR4), STPTBL ;PUT VECTOR IN STEP 1 
006237 002250 ASR STPTB ;DIVIDE B 
006237 002250 ASR STP TBL ;DIVIDE BY FOUR 
013737 2250 002264 MOV STPTBL ,CMPTBL +4 ;PUT VECTOR IN STEP 3 COMPARE 
052737 137400 002250 BIS #137400, STPTBL ;REST OF STEP ONE 
012737 005700 002260 MOV #B.S1!B.QB!B8.01!B.0D!B. MP, CMPTBL 
;ST EP 1 COMPARE VALUE 
012737 060050 002252 MOV #COMMAR , STPTBL+2 ; STEP 2- ree AREA ADDRESS 
012737 010277 002262 MOV #010277 , CMPTBL+2 ;STEP 2 COMPARE 
012737 100000 002254 MOV #B.PP,STPTBL+4 ;STEP 3 - HIGH ADDRESS AND PRGE/POLL 
112737 000040 00226 MOVB #40, CMPTBL+5 sREST OF STEP 3 COMPARE 
012737 000000 002256 MOV #0,STPTBL+6 ;STEP 4 
012737 040000 002266 MOV #040000, CMPTBL +6 ;STEP 4 COMPARE 
012737 001002 002306 MOV #514. ,CMARLG ;LENGTH OF COMM AREA FOR THIS TEST 
004737 036532 JSR PC ,BAKPAT ;FILL COMM AREA WITH ALL 1'S DATA 
004737 036434 JSR PC,STEP1 :GO DO IT 
005737 002320 TST STEPST ;IF STATUS OKAY 
001412 BEQ 5$ ; THEN CONTINUE TEST 
ERRDF 22.,EMSG9,PRIINI ;"SA CONTENTS IN ERROR” 
104455 TRAP CSERDF 
000026 -WORD 22 
030465 WORD EMSG9 
032740 WORD PRIINI 


ah ae 


eee ames eae <e: 


ee ee NE ee -- ~——- - 
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TEST 7; MAXIMUM RING BUFFER TEST 


3775 045370 CKLOOP ;LOOP ON ERROR? 
5370 104406 TRAP CS$CLP1 

3776 045372 DODU LOGUNT ;DROP UUT 

045372 013700 002312 Vv LOGUNT ,RO 

045376 104451 TRAP C$D0DU 
3777 045400 ESCAPE TST sLEAVE TST 

045400 104410 AP CSESCAPE 
377 045402 000306 WORD 1L10025-. 
3779 045404 005237 002316 5$: INC INISTP sADJUST STEP COUNTER 
3780 045410 062705 ADD #2,R5 ADJUST TABLE INDEX 
3781 045414 012737 0001 002326 6%: MOV #100, OUTER sSET UP FOR DELAY ROUTINE 
3782 045422 016537 002260 002314 MOV CMPTBLC(RS),SAEXP ;SET UP FOR COMPARE 
3783 045430 012737 037200 002324 73: MOV #16000. , R ;SET UP INNER 
3784 045436 017464 002 000012 MOV ATKSACR4 ), TKSASV(R4 ) ;GET SA CONTENTS 
3785 022705 CMP #6 ,RS sARE WE IN STEP 4? 
3786 045450 001005 BNE 8$ :BRANCH IF NOT 
3787 045452 033764 002314 000012 BIT SAEXP , TKSASV(R4) sJUST LOOK FOR STEP 4 BIT 
3788 045460 001024 BNE 10$ ;IT'S SET SO LET’S GO 
3789 045462 BR 9$ sSTAY IN LOOP OTHERWISE 
3790 0454 023764 002314 000012 8$: CMP SAEXP , TKSASV(R4 ) sIF_SA IS WHAT WE EXPECT 
3791 045472 001417 BEQ 0$ ; THEN MOVE ALONG 
3792 045474 004737 036406 9$: JSR PC,PDELAY ;__ ELSE GIVE UUT SOME TIME 
3793 045500 005737 002330 TST TOUT ;IF_NO TIMEOUT YET 
Le 045504 001751 BEQ 7$ ; THEN GO TAKE ANOTHER LOOK 
3796 045506 ERRDF  23.,EMSG9,PRIINI ;"SA CONTENTS IN ERROR” 

045506 104455 TRAP C$ERDF 

045510 000027 -WORD 23 

045512 030465 -WORD EMSG9 

045514 032740 -WORD  PRIINI 
3797 045516 CKLOOP 

045516 104406 TRAP C$CLP1 
3798 045520 DODU LOGUNT 

045520 013700 002312 MOV LOGUNT ,RO 

045524 104451 TRAP C$D0DU 
3799 045526 ESCAPE TST 

045526 104410 TRAP C$ESCAPE 
ss 045530 000160 WORD L10025-. 
3801 045532 016574 002250 000002 10%: MOV STPTBLC(RS), @TKSACR4) sWRITE NEXT STEP TO UUT 
3802 045540 022705 000004 CMP #4 RS iIF ST - 3 
3803 045544 001404 BEQ 15$ THEN DO po a STUFF 
38 5546 022705 000006 CMP #6 ,R5 ;IF NOT IN STEP 
3805 045552 001314 BNE S$ ; THEN GO BACK To MAIN LOOP 
soon 045554 000440 BR 20$ ; ELSE GO CHECK RESULTS 
3808 045556 15$: DELAY 1 sGIVE PORT SOME TIME 

045556 012727 000001 MOV #1,(PC)+ 

045562 000000 . WORD 

55 013727 002116 MOV L$DLY,(PC)+ 

045570 000000 -WORD 0 

045572 005367 177772 DEC ~6tPC) 

045576 001375 BNE 

045600 005367 177756 DEC “22¢PC) 

045604 001367 BNE 
3809 045606 017464 000002 000012 MOV ATKSACR4), TKSASV(R4) ;GET SA CONTENTS 


———_ ee ee ee eee ce eee ee 
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TEST 7; MAXIMUM RING BUFFER TEST” 8° age SEQ 103 


sete 045614 001412 BEQ 16$ ;BRANCH IF OKAY 
3812 045616 ERRDF 24. ,EMSG13,PRIINI 3SA NOT O IN PURGE/POLL 
045616 104455 TRAP CSERDF 
045620 000030 -WORD 24 
045622 030650 -WORD EMSG13 
045624 032740 -WORD  PRIINI 
3813 045626 CKLOOP 
045626 104406 TRAP C$CLP1 
3814 045630 OD0U LOGUNT 
045630 013700 002312 V LOGUNT ,RO 
045634 104451 TRAP C$D0DU 
3815 045636 ESCAPE TST 
045636 104410 TRAP CSESCAPE 
000050 -WORD 1L10025-. 
3817 045642 012774 000000 000002 16%: MOV #0, TKSACR4 ) sWRITE O'S TO SA 
3818 045650 005774 000000 TST AaTKIPC(R4) ;AND READ IP 
3819 045654 000653 BR $ ;GO WAIT FOR NEXT TRANSITION 
0456 004737 036562 208: JSR PC, CHKCOM :GO CHECK COMM AREA 
3822 045662 032764 1 000014 BIT @DRPFLG, LUNFLG(R4) ;HAS UUT BEEN DROPPED 
3823 045670 00100 BNE T7EXT ; + ge NOW IF SO 
3824 045672 005337 002272 DEC ITRCNT F_NO MORE ITERATIONS LEFT 
3825 045676 001402 BEQ T7EXT ; THEN LEAVE TEST 
434 045700 000137 045216 JMP 2$ ; ELSE DO IT AGAIN 
3828 045704 T7EXT: EXIT TST 
045704 104432 TRAP CSEXxIT 
045706 -WORD 1L10025-. 
3829 
3830 045710 ENDTST 
045710 L10025: 
045710 104401 TRAP CSETST 


eee ee oe 


ES nen 


TEST 
3833 
3834 
3835 045712 
045712 


8 
3837 045712 
383 20 


oe 
ge 
SS 


3840 
3841 045736 
3842 045740 


3843 045764 


3844 
Soar 045770 


N8 
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012737 


012737 
042737 


012737 


HARDWARE 
TEST 8: EXTENDED ADDRESS TEST 


002274 


032640 
000001 
000001 
000012 
036714 


000014 


002334 





-SBTTL TEST 8: EXTENDED ADDRESS TEST 


BGNTST 
T8:: 
BIT @DRPFLG,LUNFLG(R4) 
BEQ G08 
RFLAGS FLAGS 
R CSRFLA 
MOV RO, FLAGS 
BIT OPNT FLAGS 
EQ 1$ 
PRINTF #BYPASS,LSTEST 
V L$TEST, -(SP) 
MOV SBYPASS -(SP) 
MOV 02,-(SP) 
V SP,RO 
TRAP  C$PNTF 
ADD 06, SP 
1$: EXIT TST 
TRAP C$EXIT 
.WORD 110026-. 
G08: TST KTFLAG 
BNE 1$ 
EXIT TST 
TRAP  C$EXIT 
.WORD 110026-. 
1s: MOV OCTRL ,FRUIS 
MOV #1, ITRCNT 
CMP #1, PASCNT 
BEQ 
MOV #10. ,ITRCNT 
2% JSR PC, INTHMU 
3$ MOV 
MOV #1, Ti ISTP 
MOV TKVEC(RA), STPTBL 
ASR STPTBL 


STPTBL 
MOV STPTBL, mitt 
BIS #111000, STP 
MOV 06. 


@COMMAR .S 


MOV PTBL+2 
BIC O61715!61114 61718, STPTBL +2 


MOV woreeee. CMPTBL +2 
MO “Fe TEMP 
§ »STPTEL o@ 


S BL +4 
BIS 08 .PP,STPTBL +4 
MOVB 040, CMPTBL +5 
MOV 00, STPTBL +6 
MOV #040000 , CMPTBL +6 


TBL RES 
$1'8'0B'B DI!8.00!6.MB CAP 


- — —--- = - 


SEQ 104 


IF UUT NOT DROPPED 
;_ THEN DO TEST 
;ELSE GO GET SUPRVISOR FLAGS 


sSEE IF WE'RE PRINTING TEST NUMBERS 
sNO, DON'T PRINT BYPASSED 
; ELSE PRINT THE TEST 


BYPASSED MESSAGE AND GET OUT 


;IF_MEMORY MANAGEMENT AVAILABLE 
; THEN DO TEST 
; ELSE GET OUT 


sFAILING FRU IN CASE OF ERROR 
;SET UP o Sales TEST ITERATION 


T ART TEST 
; ELSE DO 10 ITERATIONS 
sINITIALIZE MMU REGISTERS 
sSET UP RS AS INDEX TO STEP TABLES 
sSTEP 1 FOR ERROR PRINTOUT 
;PuT VECTOR IN STEP 1 
sDIVIDE BY TWO 


sDIVIDE BY FOUR 
sPUT VECTOR IN-STEP 3 COMPARE 
STEP ONE 


; sep. 1 COMPARE VALUE 
:STEP 2 - COMM AREA ADDRESS 


sCLEAR THE ACTIVE PAGE FIELD 
EP 2 COMPARE 


sNOW SET PURGE 
sREST 0 OF STEP 3 COMPARE 
;STEP a COMPARE 


3877 
3878 
38 


046210 
046216 
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012737 
37 


030465 
032740 


104406 


013700 
104451 


104410 
000214 


016574 


001314 


HARDWARE TEST 
TEST 8: EXTENDED ADDRESS TEST 


000022 
036532 


036434 
002320 


002312 


002312 


002250 
000004 


000006 


002306 


5$: 
002326 6$: 
002324 7$: 
0000 


000012 8$: 
9$: 


000002 10%: 


#18. ,CMARLG 
PC ,BAKPAT 


PC, ,STEP1 
STEPST 
25. ,EMSG9, PRIINI 
CSEROF 
EMSG9 
PRIINI 
CSCLP1 
LOGUNT 
LOGUNT ,RO 
DODU 


a0 
nw 


T 
CSESCAPE 
L10026- . 


INISTP 


#2,R5 

#100, OUTER 
CMPTBL(RS),SAEXP 
#16000. , INNER 
ATKSACR4), TKSASV(R4 ) 
#6,R5 


8$ 
SAEXP , TKSASV(R4 ) 
10$ 


9$ 
SAEXP , TKSASV(R4 ) 
PC ,PDELAY 

TOUT 

7$ 

26. ,EMSG9, PRIINI 
CSERDF 


EMSG9 

PRIINI 

C$CLP1 
T 


LOGUN 
LOGUNT ,RO 
C$000U 
TST 


CSESCAPE 
L10026-. 


STPTBL(RS),@TKSACR4 ) 
#4,R5 


15$ 
#6,R5 
5$ 


sLENGTH OF COMM AREA FOR THIS TEST 
sFILL COMM AREA WITH ALL 1'S DATA 


:GO0 DO IT 

sIF STATUS OKAY 

3; THEN CONTINUE TEST 
"SA CONTENTS IN ERROR” 


;LOOP ON ERROR? 
sDROP UUT 


sLEAVE TST 


sADJUST STEP COUNTER 

sADJUST TABLE INDEX 

;SET UP FOR DELAY ROUTINE 

;SET UP FOR — RE 

sSET UP I 

;GET SA CONTENTS 

sARE WE IN STEP 4? 

;BRANCH IF NOT 

sJUST LOOK FOR STEP 4 BIT 
ET'S GO 


sIF_SA IS WHAT WE EXPECT 

; THEN MOVE ALONG 

;__ ELSE GIVE mw SOME TIME 
:IF_NO TIMEOUT YET 

; THEN GO TAKE ANOTHER LOOK 


;"SA CONTENTS IN ERROR” 


sWRITE NEXT STEP TO UUT 

:IF STEP 3 

;__ THEN DO PURGE/POLL STUFF 
;IF_NOT IN STEP 4 

; THEN GO BACK TO MAIN LOOP 


| HARDWARE TEST 
| TEST 8: EXTENDED ADDRESS TEST 


3916 046430 000440 
3917 
3918 046432 
046432 000001 
002116 
177772 
177756 
000002 


012727 
000000 
013727 
000000 


3 
046476 030650 
032740 


104406 


013700 
104451 


104410 
046514 000104 


012774 
005774 
3929 046530 000653 


002312 


000000 
000000 


036562 
032764 000001 
002000 
002120 
046040 


177572 
002272 


046034 
177572 


001402 
000137 


005037 


046614 104432 
000002 


104401 


000012 


000002 


000014 


172346 
172346 


15$: 


16$: 


20$: 


25$: 


T8EXT: 


L10026: 
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ENDTST 
TRAP 


C9 


Page 62-2 
20$ 


1 
pnetreae 
eabooes 
-6(PC) 
.-4 
-22(PC) 

0 


ATKSACR4), TKSASV(R4) 
16$ 


27. ,EMSG13,PRIINI 
CSERDF 

27 

EMSG13 

PRIINI 

C$CLP1 

OGUNT 

LOGUNT ,RO 

C$D0DU 


TST 
CSESCAPE 
L10026-. 


#0, A ae 
aTKIPC(R4) 


faa 


PC ,CHKCOM 
#DRPFLG,LUNFLG(R4 ) 
T8EXT 


oe 
L$HIME ,KPAR3 
25¢ 
3$ 


CSEXIT 
L10026-. 


CSETST 


SEQ 106 


; ELSE GO CHECK RESULTS 
sGIVE PORT SOME TIME 


sGET SA CONTENTS 
sBRANCH IF OKAY 


:SA NOT O IN PURGE/POLL 


;WRITE O'S TO SA 
sAND READ IP 
;GO WAIT FOR NEXT TRANSITION 


;GO CHECK COMM AREA 
sHAS UUT BEEN DROPPED 
sLEAVE NOW IF SO 


sPOINT TO NEXT 32KWORDS 

;DON'T ALLOW OVERFLOW IF 4 MBYTES 
;IF_THERE’S NO MORE MEMORY AVAILABLE 
; THEN CHECK FOR MORE ITERATIONS 

; ELSE DO IT AGAIN 


sSHUT DOWN MEMORY MANAGEMENT 
;IF_NO MORE ITERATIONS LEFT 
; THEN LEAVE TEST 

; ELSE DO IT AGAIN 


sMAKE SURE IT'S OFF 


i 
TT Tee sS- sse hee-sesss-ssessestseen se--sse® 


— - ee ee ee 


Besa TEST 
TEST 9:GET DUST STATU 


032764 000001 
001423 


002334 
001000 


002114 
047502 
000002 


000006 


3964 046700 042764 000010 
032640 
037014 
000001 


002342 
000001 
032663 
037246 
000001 
000010 
002456 
000001 
032714 


037246 
000010 


‘7 - aaa Tuesda 


000014 


002334 


000014 
002310 


000014 
002272 
023042 
000014 
000014 


002272 
023042 


000014 








D9 
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-SBTTL TEST 9:GET DUST STATUS 


T9:: 


1s: 


GO9: 


T9EXT: 


E 
L10027: 


BGNTST 


ree 
FLAGS 

C$RFLA 

RO,FLAGS 

aa cleataate 

#BYPASS ,.L$TEST 
L$TES P) 


SS,-(SP) 
) 


CSEXxIT 
L10027-. 


#DUPFLG,LUNFLG(R4 ) 
#CTRL,FRUIS 
PC,PRTINT 

a »LUNFLGC(R4 ) 


#SCTRLC, » 


C V 
#DRPFLG,LUNFLG(R4) 
T9EXT 
#DUPFLG,LUNFLG(R4) 

UST,R 


»CLSD 
@DUPFLG, »LUNFLGCR4 ) 


i 
CSEXIT 
L10027-. 


CSETST 


SEQ 107 


:IS THE DRIVE AVAILABLE 
:GO DO TEST IF AVAILABLE 
sELSE GO GET SUPRVISOR FLAGS 


;SEE IF WE’RE PRINTING TEST NUMBERS 
:NO, DON’T PRINT BYPASSED 
; ELSE PRINT THE TEST 


sBYPASSED MESSAGE AND GET OUT 


s;CLEAR DUP FLAG 
;SET UP FRU POINTER 
GO DO A PORT OAT aoe 


;GE 

sSET_ UP TO DO THE SCC COMMAND 

;D0 IT ONCE 

sSET_UP COMMAND ASCII 

GO ISSUE THE COMMAND 

sIS_ THE DRIVE AVAILABLE 

sGET OUT IF NOT AVAILABLE 

;SET DUP FLAG FOR FOLLOWING COMMAND 
sSET UP TO DO GET DUST STATUS COMMAND 


sSET_UP COMMAND ASCII 
GO ISSUE THE COMMAND 
sCLEAR DUP FLAG 


—_——— ee ny 


re SN. -- ~~ 


HARDWARE TEST 


“HA 
TE 


ST 10:EXECUTE 


4028 047340 
4029 047342 


ee eee we 





E9 
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LOCAL PROGRAM (Level II microdiagnostics) 


032764 
001423 


052764 


000001 
000010 


000001 
000200 
177562 
000200 
000003 


000040/ 


000014 


002334 


000014 
000014 
000014 
002310 
900014 
002272 
023042 
000014 
002272 
023042 
000004 
000014 
000014 


002272 
023042 


000014 
177560 


000014 


-SBTTL TEST 10:EXECUTE LOCAL PROGRAM (Level II microdiagnostics) 


T10:: 


1$: 


GO10: 


1$: 


BGNTST 


#DRPFLG,LUNFLG(R4) 
010 


FLAGS 
C$RFLA 
RO,FLAGS 
ow 


#BYPASS,L$TEST 

L$TEST,-(SP) 

#BYPASS, -( SP) 
SP) 


S 
CSEXIT 
L10030-. 


#DUPFLG,LUNFLG(R4) 
#ABTFLG,LUNFLG(R4) 
#CNTRLC,LUNFLG(R4) 
#CTRL,FRUIS 
PC,PRTINT 
#DRPFLG,LUNFLG(R4) 
TSTXEX 

ro pti Pa 


#DRPFLG,LUNFLG(R4) 
TSTXEX 

#ONLINE ,RS 

#1, TTRCNT 

#ONLCMD , CURCMD 

MSCPUNCRA). P.UNITCRS) 

PC ,CLSDORV 

#ORPFLG, LUNFLGC(R4 ) 
TSTXEX 


#DUPFLG,LUNFLG(R4) 
#XLOCPR,R5 
#1,ITRCNT 
#ELPCMD , CURCMD 
»CLSDRV 
#DRPFLG,LUNFLG(R4) 


TSTXEX 
+ al meee 


2 

RBUF ,RS 
#BIT7,RS 
#3,R5 


2$ 
#CNTRLC,LUNFLG(R4 ) 





sIS THE DRIVE AVAILABLE 


;GO DO TEST IF AVAILABLE 
sELSE GO GET SUPRVISOR FLAGS 


;SEE IF WE'RE PRINTING TEST NUMBERS 
:NO, DON'T PRINT BYPASSED 


sBYPASSED MESSAGE AND GET OUT 


ELSE PRINT THE TEST 


;CLEAR DUP FLAG 


3GO ISSUE THE COMMAND 


sIS_ THE DRIVE AVAILABLE 


;GET OUT IF NOT AVAILABLE 
sSET_UP TO DO THE ONLINE COMMAND 
O IT ONCE 


;SET UP COMMAND ASCII 


;PUT_THE 
3GO ISSUE THE COMM 
sIS_THE DRIVE AVAILABLE 


T ONCE 
;SET_UP COMMAND ASCII 
:GO ISSUE THE COMMAND 
IS THE DRIVE AVAILABLE 
sGET OUT IF NOT AVAIL 


ABLE 
sCHECK FOR aot FROM KEYBOARD 


;IF NONE, CONT 


;GET DATA al FROM KEYBOARD 


;STRIP P 


sCHECK FOR “CONTROL C“ INPUT 


sIF_ NOT, CONTINUE 
;SET "CONTROL C” FLAG 


O THE SCC COMMAND 
;SET_UP COMMAND ASCII 


UNIT py hn li THE PACKET 


SEQ 108 


| 


HARDWARE TEST 
TEST 10:EXECUTE 


4030 047350 
4031 047352 
4032 047356 
4033 364 


4099 047536 


ee ee ee ee 


MACRO YOS.02 Tuesde 
LOCAL PROGRAM (Level 


000044 


000031 
047576 
160002 


002524 


000001 
032726 
037246 
000001 
000020 


000020 


000040 


116 
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II microdiagnostics)” 
BR 20$ :GO_ ABORT MICRODIAGNOSTICS 
2s: MOV @RCVDAT RS ;SET_UP TO DO RECEIVE DATA COMMAND 
002272 MOV #1, ITRCNT ;D0 IT ONCE 
023042 MOV #RCVCMD , CURCMD ;SET UP COMMAND ASCII 
JSR PC, CLSDRV ;G0 ISSUE THE COMMAND 
000014 BIT #DRPFLG, LUNFLG(R4) IS THE DRIVE AVAILABLE 
BNE TSTXE ;GET OUT IF NOT AVAILABLE 
000014 BIT #ABTFLG,LUNFLG(R4) ;ABORT LOCAL PROGRAM ? 
BNE 20$ ;YES, ISSUE ABORT COMMAND 
CLR R2 3NO, SET UP DELAY LOW COUNT 
MOV #20,R3 ;SET UP DELAY HIGH COUNT 
10$: INC R2 ;DELAY 
BNE 10$ 
DEC R3 
BNE 10$ 
BR 1$ ;POLL DIAGL2 PROGRESS 
20$: MOV #ABORT RS ;SET UP TO DO ABORT COMMAND 
002272 MOV #1,ITRCNT ;D0 IT ONCE 
023042 MOV #ABTCMD , CURCMD ;SET UP COMMAND ASCII 
JSR PC,CLSDRV 3GO ISSUE THE COMMAND 
000014 BIT #CNTRLC,LUNFLG(R4) ;CHECK IF ABORTING DUE TO “CONTROL C” 
BEQ TSTXEX ;IF NOT, EXIT 
BREAK 
TRAP C$BRK 
TSTXEX: EXIT TST 
TRAP CSEXIT 
-WORD  1L10030-. 
ENDTST 
L10030: 
TRAP CSE 
045 BYPASS:: “ASCIZ /SNSA TEST %Z3%A BYPASSEDSN/ 


ENDMOD ; 
- TITLE PARAMETER CODING ™ 
.SBTTL HARDWARE PARAMETER CODING SECTION 

BGNMOD 


it THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 


; WITH THE OPERATOR. 


L$HARD::— 


GPRMA TKIPAD,O,0,160002,177564, YES 
T$CODE 


“WORD  TKIPAD 
‘WORD TS$LOLIM 


‘ 


CL LO i At tt At tt ttt tl te 7 


ee ee 


| PARAMETER CODING 


047546 
4119 oft ie, 


04 
4120 047 
04 


177564 


EXIT HRD 
- WORD 


TKIPAD: .ASCIZ 
TKVECT: .ASCIZ 
TKUNT: .ASCIZ 

-EVEN 


ENDHRD 
-EVEN 
L10031: 
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; HARDWARE PARAMETER CODING SECTION 


T$HILIM 
TKVECT ,2,0,777,60, 776, YES 
T$CODE 


TKVECT 
777 


T$LOLIM 

T$HILIM 

TKUNT ,4,0,777,0,251, YES 
T$CODE 

TKUNT 


777 

T$LOLIM 
T$HILIM 
T$CODE 

?TKIP ADDRESS? 


?TK VECTOR? 
?T/MSCP UNIT NUMBER? 


SEQ 110 


a 


Sonne” copr 


1 
4207 


060000 


062054 
062124 
120000 


120000 
120002 
04 


A 


000000 


060000 


000000 
000000 
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SOFTWARE PARAMETER CODING SECTION 


-SBTTL SOFTWARE PARAMETER CODING SECTION 


; THE SOFTWARE PARAMETER CODING SECTION Type MACROS 

; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; WITH THE OPERATOR. 

ge 


BGNSFT 
.WORD L10032-L$SOFT/2 
L$SOFT:: 


-EVEN 
ENDSFT 


L10032: ~ 


Sf RRR EAE EAA E EERE ERA KEE EKER EREEEEEEREREEEREEEEEEEES 


bi RRSEESSSSSSERSSEE SESE ESSE SEES SNES ESEsEeeSEeeeseseSeeseEEEeSETS 


sesog OF: AREA 


THIS AREA RESIDE IN AN 8KBYTE AREA OF MEMORY FREE 


; 
5 RRR RRR AEAAREEEEEERE KEE RARE EE EEREEEAEREE ERE REAR EEEREREREEE KEE 
5 RRR EERE EE EERE EERE ERE E AE AAE EERE RAEKEEEERERERER ES 


- 60000 sSTART OF THE THIRD 8KBYTE BLOCK 
;OF VIRTUAL MEMORY SPACE. ACCESIBLE 
;VIA PAR/PDR 2. 


RDBUF : : 
COMMEBF : : 
sia -BLKW 20. ;BUFFER SPACE PRECEDING COMM AREA 
caster. eLkt 514. ;MAXIMUM COMM AREA LENGTH 
"" BLKW 20. ;BUFFER SPACE SUCCEEDING COMM AREA 
.BLKW 7638. 
LASTAD 
“EVEN 
WORD 0 
“WORD 0 
L$LAST:: 
ENDMOD 


NN 


a 





LL LE LO OC tt i i tt le te te 


19 


| PARAMETER CODING MACRO Y0S.02 Tuesd -fer- : 
| SOFTWARE PARAMETER CODING SECTION Oy ee eee Ca ee SEQ 112 


4208 000001 -END 


ne 


-_-_— - Se ee wee 


JI 
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| Symbol table 
ABORT 002554 CMDCNT G MMU = 000103 EXIT 040564 G$RADL= 000120 
ABTCMD 032733 G CMDREF 003032 G C$MSG = 000023 EXTINT 036070 G$RADO= 000020 
ABTFLG= 000020 G CMDR’ 003014 G CSOPNR= 34 EXTVEC 0364 G$XFER= 
= 000020 G CMDSAV 023036 G $OPNW= 000104 END = 0021 GSYES = 
ASSEMB= 000010 CMMERR 002302 G CS$PNTB= 000014 E$LOAD= 000035 HBFADD 023362 
BAKPAT 036532 G CMPTBL 002260 G CS$PNTF= 000017 FLAG = 04 G P = 
BITO = 000001 G CMTBLG 002304 G CS$PNTS= 000016 FLAGS 002334 G HIADDR= 000002 G 
BITOO = 000001 G CNTER = 000000 G C$PNTX= 15 FRUIS 002310 G = 100000 G 
BITO1 = 000002 G CNTERR 023322 C$PUTB= 000072 $AU = 0000 HSTIMO= 
BITO2 = 000004 G CNTFLG 003026 G C$PUTW= 000073 FS$AUTO= 000020 IBE = 010000 G 
BITO3 = 000010 G CNTHI 003024 G $QI0 = 000377 FS$BGN = 000040 Ipbu = 0 
IT04 = 000020 G CNTRLCs 000040 G C$RDBU= 007 FS$CLEA= 000007 = 
BITOS = 000040 G COMMAR “060050 G CS$REFG= 000047 F$DU = 000016 ILLINT 036072 G 
IT06 = 000100 G COMMBF 060000 G C$REL = 000077 FSEND = 000041 ILOOP 
BITO7 = 000200 G CONID = 177777 G CS$RESE= 000033 F$HARD= 000004 IMM = 000200 G 
BITO8 = 000400 G RD = 177776G CS$REVI= 000004 FSHW = 000013 IMSG 041022 
BITO9 = 001 G CTRL 032640 G CSRFLA= 000021 FSINIT= 0 INISTP 002316 G 
BIT1 = 000002 G CURCMD 023042 G C$RPT = 000025 $JMP = 000050 002324 G 
BIT10 = 002000 G C$AU = 000052 CS$SEFG= 000046 F$MOD = 000000 INTFLG= G 
BITi1 = 000 G = C$SPRI= 000041 F$MSG = 000011 036714 G 
BIT12 = 010000 G C$BRK = 0000 C$SVEC= 000037 FS$PROT= 000021 INTRCV 036062 G 
BIT13 = 020000 G C$BSEG= 900004 $TOME= 000076 FS$PWR = 000017 INTTBL 037236 
BIT14 = 040000 G BSUB= 000002 DCERR 023312 FSRPT = 000012 INVSTA 023332 
BIT15 = 100000 G CS$CLCK= 000062 DFPTBL 202 G F$SEG = 000003 Is ~ 
BIT2 = 000004 G C$CLEA= 000012 DIAGMC= 000000 F$SOFT= 000005 ITRCNT 002272 G 
BIT3 = 000010 G C$CL.OS= 000035 DRPFLG= 00000: G $SRV = 000010 Ix = 
BIT4 = 000020 G C$CLPi= 000006 DRV 032655 G F$SUB = 000002 I$AU = 000041 
BITS = 000040 G CS$CPBF= 000074 ORVER = 000011 G F$SW = 000014 I$AUTO= 000041 
BIT6 = 000100 G C$CPME= 000075 DSCEND 003024 G FS$TEST= 000001 I$CLN = 0041 
BIT7 = 000200 G CS$CVEC= 000036 DSCRNG 003000 G GOSCMD 032714 G I$DU = 000041 
BIT& = 0400 G C$DCLN= 000044 DUPFLG= 000010 G GDUST 002456 I$HRD = 000041 
BIT9 = 001000 G C$DODU= 000051 DUSTFL= 000017 G = 000001 G I$INIT= 000041 
BOE = 00 G C$DRPT= 000024 EF .CON= 000036 G GOABO 040554 $M0D = 000041 
BPNERR 023342 = 000053 EF .NEW= 000035 G G010 047110 $MSG = 000041 
BRFLAG= 000004 G CSEDIT= 000000 EF .PWR= 000034 G G02 41702 I$PROT= 000040 
BYPASS 047502 G CSERDF= 000055 EF .RES= 000037 G G03 042464 I$PTAB= 000041 
B.DI = 000400 G ERHR= 000056 EF .STA= 000040 G G04 043136 I$PWR = 000041 
B.ER = 100000 G CS$ERRO= 000060 ELPCMD 032721 G GOS 043716 I$RPT = 000041 
B.GO = 000001 G CSERSF= 000054 EMSG10 030512 G G06 044360 I$SEG = 000041 
B.IE = 000200 G CSERSO= 000057 EMSG11 030540 G G07 045164 I$SETU= 000041 
B.LF = 000002 G CSESCA= 000010 EMSGi2 030601 G G08 045770 I$SFT = 1 
B.MP = 000100 G CSESEG= 000005 EMSG13 030650 G 046700 I$SRV = 000041 
B.NV = 002000 G ESUB= 000003 EMSG14 030677 G GSCNTO= 000200 I$SUB = 000041 
B.0D = 000200 G CSETST= 000001 EMSG15 030726 G G$DELM= 000372 I$TST = 000041 
B.PI = 000001 G CSEXIT= 000032 EMSGS 030334 G G$DISP= 000003 $JMP = 000167 
B.PP = 100000 G CSFREQ= 000101 EMSG6 030355 G GSEXCP= 0004 KPARO = 172340 G 
B.QB = 001000 G FRME= 000100 EMSG7 030406 G G$HILI= 000002 KPAR1 = 172342 G 
B.S1 = 004000 G C$GETB= 000026 EMSG8 030427 G G$LOLI= 000001 KPAR2 = 172344 G 
B.S2 = 010000 G C$GETW= 000027 EMSG9 030465 G G$NO = 000000 KPAR3 = 172346 G 
B.S3 = 020000 G C$GMAN= 000043 1016 GS$OFFS= 0004 KPAR4 = 172350 G 
B.S4 = 040000 G C$GPHR= 000042 ENDCLE 041064 GS$OFSI= 000376 KPARS = 172352 G 
B.WR = 040000 G C$GPRI= 000040 = 100000 G G$PRMA= 000001 KPAR6 = 172354 G 
CDRECV 037746 G C$INIT= 000011 ERRBLK 023060 G G$PRMD= 000002 KPAR7 = 172356 G 
CHKCOM 036562 G $INLP= 0020 ERRMSG 023056 G G$PRML= 000000 KPDRO = 172300 G 
CKCMEX 036712 C$MANI= 000050 ERRNBR 023054 G G$RADA= 000140 KPDR1 = 172302 G 
CLSORV 037246 G C$MAP = 000102 ERRTYP 023052 G G$RADB= 000000 KPDR2 = 172304 G 
CMARLG 002306 G C$MEM = 000031 EVL = 000004 G G$RADD= 000040 KPDR3 = 172306 G 
| 


| PARAMETER CODING 
Symbol table 


za 
Uv 
S 
uw 
eeee 


% 

w 

g 
DHAHAGHHHHHHO|A |G 


~< 


tw 
rr 
Dao & +0 S 
DOOHOOOOOOOHOHHHHHHAMAHAAAANAAAOAHAHAARHAaHA @ 


L$LOAD 


a a ee ee ee 
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L$LUN 002074 G L2ELDF = 
L$MREV 002050 G L2ELDS= 
L$NAME 002000 G L2ELEC= 
L$PRIO 2042 L2ELEV= 
L$PROT 023044 G L2ELFL= 
L$PRT 002112 G L2ELFM= 
L$REPP 2062 L2ELLB= 
L$REV 002010 G 2ELOF = 
L$RPT 035002 G L2ELPB= 
L$SOFT 047652 G L2ELP1= 
L$SPC_ 002056 G L2ELP2= 
L$SPCP 002020 G L2ELRL= 
L$SPTP 002024 G L2ELRT= 
L$STA 002030 G L2ELRW= 
$SW 002212 G L2ELST= 
L$TEST 002114 G L2ELTN= 
L$TIML 002014 G L2ELTO= 
L$UNIT 2012 L2ELTi= 
L10000 002210 L2ELT2= 
L10001 002212 L2ER1 
10003 033542 L2ER10 
0004 035000 L2ER11 
L10005 036052 L2ER12 
0006 036060 L2ER13 
L10007 036070 L2ER14 
L10010 036100 L2ER15 
L10011 04105 L2ER16 
L10012 041102 L2ER17 
L10013 041116 L2ER18 
L10014 041124 L2ER19 
L10015 041622 L2ER2 
L10016 041312 L2ER20 
L10017 041556 L2ER21 
L10020 042404 L2ER22 
L10021 043056 L2ER23 
L10022 043636 L2ER24 
L10023 044300 L2ER25 
L10024 045104 L2ER26 
L10025 045710 L2ER27 
L10026 046620 L2ER3 
L10027 047030 L2ER4 
L10030 047500 L2ERS 
L10031 047650 L2ER6 
L10032 047652 L2ER7 
L2BRD1= 000024 G L2ER8 
L2BRD2= 000030 G L2ER9 
L2BWR1= 000014 G L2ETBL 
L2BWR2= 000020 G L2MSG 
L2CMD = 000010 G L2REP1= 
L2CRCi= 000044 G L2REP2= 
L2eCRC2= 000046 G L2RSP = 
L2DATA 040200 G L2STA = 
L2DRV = 000004 G L2SWR1= 
L2DUMP 033544 G L2SWR2= 
L2ECC1= 000040 G L2TRK = 
L2ECC2= 000042 G L2TST = 
L2ELDE= 000155 G L2UNT = 


000006 
000012 


MM220N= 


024417 
0. 


000020 


w 
DOOOHOHOHNAHAANIAOHOHOHOIAAIAIAIHOHHAHAHAHAANAHAAAHHAHAAARAAVRANHAAARAARHAAARARAARARAAAAMD 


3 
eases 


000000 


= 
AHAAHAAAA 


o 
AOHHHHAHAAAMNAAAARNAMNMHA AMAAAAMDA AANA 


SEQ 114 


eee a --reee  e = 


| PARAMETER CODING 


' Symbol 
P.EXT1= 


SFPTBL 


. ABS. 


teble 


4 
002212 


120004 
000000 


UWS o 
QO OHH BHAA wan 


Errors detected: 


*** Assembler statistics 


Work file reads: 


——— TT so 


000 
001 
0 


337 


Work file writes: 33 


Size of work file 
Size of core pool: 1 
Operating system 


Elepsed time: 00:08:41.85 
CZTKAA.BIN, CZTKAA/-SP=SVC40R .MLB/ML ,CZTKAA 
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T$ARGC= 
TS$CODE= 


(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 


00005 
000002 
026004 


( 75 Pe 


So o 
O AHH OF OHH AOHAAOM 


4 
: 34208 Words ( 134 Pages) 
9714 Words 


s) 
: RSX-11M/PLUS (Under VAX/VMS) 


TSERRN= 


010002 


L9 


AAA HHH 
PRR RPuvunonuunen 


a _--- eee o> 


ao na fn aM 


an OO fo fn OD 


~~ 


X$TRUE= 


SEQ 115 


me 


